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8 FACILITY: NETWORK ACP 

8 ABSTRACT: This module processes control Q10's to NETACP. 

8 ENVIRONMENT: MODE = KERNEL 

8 AUTHOR: A.ELDRIDGE, CREATION DATE: 8-JAN-80 

MODIFIED BY: 

0 v03-023 PRBO341 Paul Beck 20-Jul-1984 18:35 

000 Fix problem whereby the returned P2 parameter for SHOW 
B58 i could be occasionally garbaged. 

$09 v022 PRBO332 aul Beck 1-MAY-1984 20:25 

000 Store EPID inatesd vet IPID in OBISL_PID. 

ite v021 RNGOO21 Rod Gamache 07-F eb-1984 

B28 Fix crash that resulted from internal pool allocation failure 
00 with an invalid string length returned, that was attempted to 
00 be copied on the stack (which got an INVALID STACK error)! 
00 Fix size return of P4 buffer to not return half filled 
38 parameter data. 

000 Previous modifications by: 

000 A.Eldridge,S.Davis,T.Halvorsen,R.Gamache 
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; Define the search key List to be used to re-establish the position 

3; in the database from the NFB context. The List here contains exactly 
3; two entries (the primary and secondary keys). A oe which isn't 

3; desired is indicated by having a field ID of NFBSC_WILDCARD. 


NETSAL_SRCH_LIST: 


ocess ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro v04-00 Page 
ARATIONS aoe 9 83:48:83 NETACP.SRCINETCTLALL.MAR;1 . 
09 § ~SBTTL DECLARATIONS 
0 : INCLUDE FILES: 
00 5 
00 60 SABDDEF 
4 61 SIRPDEF 
0 6¢ SUCBDEF 
00 6 SPRVDEF 
00 64 
4 65 SNE TSYMDEF 
00 96 SNE TUPDDEF 
8 6 
0 98 DRDEF 
00 8 SCNFDEF 
000 0 SCNRDEF 
000 71 SNF BDEF 
000 0S SRCBDEF 
000 7 
B28 74 
000 75; 
000 76 ; OWN STORAGE: 
000 77; 
000 78 -PSECT NET_IMPURE,WRT,NOEXE,LONG 
000 79 
000 80 ; 
O00 81 ; Define storage for control Q10 processing 
000 NETSGL_PM_OUT: -BLKL 1 ; Value returned as the NFB ‘parameter’ 
sit NETSGL_PM_IN: -BLKL 1 ; Value supplied as the NFB ‘parameter’ 
000 
000 
000 
000 
000 
4 
00 
000 
000 
00 
00 


3; The fol Loving 8 longwords must be ropether in order. The desciptors 
3; are used to hold the original I0$_AC CONTROL buffer descri tors. They 
3; are also used as the eearrteters of the buffers used for the re-issuing 
3; of the control Q10s to the X.25 ACP. 


—— DOC DOOCOOO00O00 00000 00000 09 09 00 G0 C0 Co 
MD ODNAUE WIN OC OONAUE WN" OOOnNOuS 


NETSGL_SRCH_ID:: -BLKL 1 ; Q10 "search" key field i.d. 
NETSGL_OPER: -BLKL 1 § oe of comparison for primary key 
3 NETS$SGQ_SRCH_KEY:: -BLKL 2 ; Value/descriptor of the ‘‘search’’ key 
Bi NETSGL_SRCH2_ID:: -BLKL 1 ; Secondary search mee field ID 
1 100 NETSGL_OPER2: -BLKL 1 : vype of comparison for secondary key 
3 } NET$GQ_SRCH2_KEY:: -BLKL 2 3; Value of secondary search key 
! ! LONG 0 ; Terminate List 
0 1 keree 
0 1 
0 1 
1 
1 
1 
1 
1 
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v04- DECLARATIONS 73eE= 1382 3:48:83 NETACP.SRCJNETCTLALL.MAR; 1 ' 
. #6 
9 f 114 NETSGL_SIZ_P4:: -BLKL 1 ; Length of result buffer 
115 NETSGL_PTR_P4:: -BLKL 1 ; Pointer to result buffer 
8 4 118 NETSGL_SIZ_P3:: _! Ga : Length of and pointer to field to rcv 
0 ‘ 8 117 NETSGL_PTR_PS:: -BLKL 1 ; # of bytes returned P4 buffer 
000004 ‘ 118 NETSGL_SIZ_Pe:: -BLKL 1 ; Length of input string 
0000044 4 119 NETSGL_PTR_P2:: -BLKL 1 ; Pointer to input string 
0000048 44 120 NETSGL_SIZ_P1: -BLKL 1 ; Length of Net Function Block 
000004C bee ! 1 NETSGL_PTR_P1: -BLKL 1 ; Pointer to Net Function Block 
gd 04C «1 : DUMMY_P2_LNG = $00 
000000C¢ Bee ! : DUMMY_P4_LNG = 200 
04C 126 DUMMY_P4: ; Shared dummy P2/P4 buffer in case 
0000114 he 1 § DUMMY_P2: -BLKB DUMMY_P4_LNG ; either was sptional and not supplied 
0000000 atte } 8 DUMMY _P «LONG 0 ; Dummy P3 buffer in case none supplied 
00000000 18 130 SIZ_L_P4: -LONG QO :; Local P4 buffer size field 
00000000 011€ 131 PTR_L_P4: «LONG QO ; Local P4 buffer pointer 
00000000 ! ? ! § PTR_L_OLDP4: -LONG 0 ; Local old P4 buffer pointer 
00000000 61 4 134 PTR_CNFCNT: «LONG QO ; Pointer to count of CNFs processed 
00000000 : , 133 PTR_OLD_CNF: «LONG 0Q ; Pointer to CNF being replaced 
00000000 012C 13 LOCAL_L_FLAG: .LONG 0 ; For LOCAL “‘Line’’ check 
00000000 0130 138 P4_ABB_CNT: «LONG 0 ; Address of P4 ABD count field 
00000000 0134 139 P2_ABD_CNT: «LONG 0Q ; Address of P2 ABD count field 
00000000 4 8 140 P1 CNT: «LONG 0Q ; Address of P1 ABD count field 
00000000 013C 141 GET_W STATUS: .LONG 0 3 Storage for CNFSGET_FIELD call status 
00000000 00000000 0140 13 QUAB_BuF : QUAD 0 ; A scratch buffer 
00000000 00000000 0148 143 CTL_G_DCLZNA: .QUAD 0 ; Desciptor of the following 
00000160 0150 144 CTLIDTLZNA: .BLKB NETSC_MAXOBJNAM+4 ; For holding Declared Object number 
8108 137 3; and name plus 3 bytes slop 
00000162 0160 147 NETS$GW_X25_CHAN:: .BLKW 1 ; Channel to the X25 ACP 
b1es 148 SPI_CANCEL_SRCH: : 
016 149 .CNFFLD oot i -pie ; Primary search key field ID 
00000000 0166 150 -LONG NFB$C_OP_EQL =; Primary operator 
00000000 O16A 151 «LONG QO 3; Quadword primary search value 
00000000 8195 136 CANCEL_L_PID: .LONG 0 :; For holding PID of canceiler 
bis 15 .CNFFLD spi L,chn 3; Secondary search key field ID 
00000000 0176 154 -LONG N BSC‘ OP_EQL : Secondary operator 
00000000 O17A 155 -LONG Q ; Quadword secondary search value 
SOOO bos 8155 136 CANCEL_W_CHN: .LONG 0 ; For holding channel of canceller 
0000000 018 15 -LONG 0O : ~ End of search List 
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+++ “00004 +4 


204 -LONG OCNFBSC_FC_MAX+1] ; masks 


ess 
ATI | 
0000 a 159 -PSECT NET_PURE ,NOWRT ,NOEXE ,LONG | 
161 ; | 
09 106 ; Mask identifying all databases maintained exclusively by X.25 ACP 
00 164° 
OBE3FE0O 09 165 X25_DB_MASK: LONG S1ONEBSC_0B_XNI>: = 
4 166 <1aNFB$C_DB_XDI>!- 
004 167 pif ad 2 ye UT bel 
004 168 <1QNFBSC_DB_XS5>!- 
004 192 <1QNFB$C_DB_XD5>!- 
494 170 <1QNFBS$C_DB_XS9>!- 
4 171 <1QNFBSC_DB_XD9>!- 
4 176 <1QNFBSC_DB_XTI>!- | 
004 17 <1QNFBS$C_DB_XTT>!- 
0004 174 <1QNFBS$C_DB_XAI>!- 
0004 175 <1QNFB$C_DB_PSI1>!- 
0004 176 pit do gy eT 
0004 177 SJONEBSC_DB_P SI >!- 
0004 178 <1QNFBSC_DB_PSI4>!- 
Bone 4 <laNFB$C_DB_PSI5> | 
3A 57 GE SF 0000000C'010E0000' ait] 183 NET$GQ_X25_DEV:: -ASCID ""_NW:'' ; X25 device name 
0010 18 
0010 184 ASSUME PRV$V_DIAGNOSE LF 31 : Insure bits are in low order 
oo18 132 ASSUME PRVSV_OPER E 31 ; longword 
$010 187 .MACRO ol coe FCT,WRTBCK,PRVLIST ; Define NFB fct characteristics 
0010 188 MPAMASK = 0 3; Init writeback mask 
ots 189 RP he <WRTBCK> 
001 190 MPMASK = TMPMASK!<1a'A> 
0010 191 -ENOR 
0010 136 yh aug, tt aa "FCT 3; Find writeback cell 
0010 19 -BYTE TMPMASK 3; Enter writeback mask 
0010 194 
at 195 
318 196 . IRP A, a IST> Lon word of the priv mask is used 
001 197 PMASK = TMPMASK !<1a<PRVSV_' 
0010 138 -ENDR 
0010 19 -=PRV_Q_REQ+<8*NFBSC_'FCT> : 
0010 00 .LONG” ~TMPMASK : Setup privilege mask 
44 01 .ENDM 
O10 8 PRV_Q_REQ: .LONG OCNFBSC_FC_MAX+1] ; Required privilege 
08 
04 
a6) 
0 
88 
OA 
C 
C 
C 


ABS 


TMPMASK = 0 ; Note that qnly the low order 
e 
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v04-000 ATIONS “SE NETACP.SRCIJNETCTLALL.MAR; 1 (3) 
ODC 
td: 
* OOFC 
* 010C 
* O11C 
: O18¢ 
00°00 OO 00 O° 0'00' a8 205 WRTBCKFCT: .BYTE OCNFBSC_FC_MAX+1] ; NFB functions requiring write-back 
BE BB Ba aE: 
00°00'00" 00" 00° *00'00°00' 0160 
00°00'00" ee 
1er 59 
4 08 
0170 09 


| 
| 
ALIGN LONG 
| 
| 
| 
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vba DECLARATIONS BrSEp 19 4 $3 :98:$9 NETACP.SREINETCTLALL.MAR;1 > 
00000170 178 1 TMP=, 
17 18 NFB_CHAR LOGEVENT <>, <> 
or 1% NFB-CHAR  READEVENT, <1.4>, <OPER> 
re ie NFB_CHAR  DECLNAME, <>, <SYSNAM> 
oB¢ 1 NFB-CHAR  DECLOBJ, <>, <SYSNAM> 
bce 18 NFB_CHAR DECLSERV, <>, © 
09 C 0 NFB_CHAR —- FC_SET <2>, <OPER> 
12¢ 1 NFB-CHAR  FCUCLEAR,  <o>, <OPER> 
o1 4 g NFB-CHAR  FC-DELETE, <2> <OPER> 
11C NFB-CHAR = FC SHOW <2,4>, © 
oi 4 4 NFB-CHAR  FC-ZERCOU, <2,4> <OPER> 
00000170 0 ¢ § .=TMP 
00000000 28 .PSECT NET_CODE,NOWRT,LONG,EXE 
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CP control Qio's 


"Sr$EP=1984 02:18:89 ENETACE. SREINEYCTLALL .MAR: 1 


~SBTTL DISPATCHING 


CALLING SEQUENCE: 


gee 
; FUNCTIONAL DESCRIPTION: 
; NETSCONTROL_QIO - 4 ha bs WHICH tb gi ae HAS BEEN 


QUESTED AND DISPAT 


as8 NETSCONTROL_Q10 


INPUT PARAMETERS: 


R3 - IRP address 
RS = UCB address 


ACP Control Block = generally has the following args: 


vo 
eee 


COMPLETION CODES: 


SS$_BADPARAM 


SS$_ 


SS$_ =NOSUCHNODE 


SS$_ ete 
SS$_W 


(FIB) 1 oyte of function code, 4 bytes of parameter 
Supplies 

Returns result Lengt 

Returns result buffer 


ey into oe base (counted or uncounted) 


Bad or af map beatin, parameter (s) 
No room in connect name table 
Couldn't allocate a control block 
No associated mbx for declared name or object 
No privilege for requested operation 
Successful completion 
Unknown node or Line 
pusot ted result buffer too short 

tempt to write a read-only parameter 


RITLCK 
SS$_ TLUCNTRFUNC ereseantand controller function 


OTHER CODES FROM SASSIGN, $Q10 


NETSCONTROL -910:: 


; Set up pointers to all strings in the funny ACP buffer. 


MOVL 
MOVZBL 
MOVAB 


aire att ees RO : Get the complex bfr address 


; Get value of P4 type for loop 


#AB 
NETS$GL~S1Z_P4,R11 ; Get table address for loop 


ASSUME ABD$W_TEXT EQ 0 


EMUL 
MOVZWL 


SOBGTR R2,10$ 


gagnsc LENGTH, oR2,RO,R6 
MOVZWL ABDSH COUNT (R6), (R11)+ 
ADDL ($ 

MOVAL 10R6), (R11) + 


Get oggress of offset 

Get offse 

Store Ht oy parameter (lth 
Get address of text 

Store pointer to text area 
seteses for access mode) 
oop 


<z 
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vo4 DIS BoE Een 19B6 82:58589 ENETNCE eRe NEVE TL ace.mar;1 2% (8 
7 $ 
§ ; Tero the ‘window’ descriptor in the ABD so that it is not written 
9 ; back when the IRP completes. Also, save pointers to the P1 ' 
91 3 and P4 descriptor count fields so that they may eventually be 
35 ; zeroed since these buffers are conditionally written back. 
be ' 4 94 eLRW <ABDSC_LENGTH*ABDSC_WINDOW>+ ABD$W_COUNT (RO) 
at ae AA E 95 MOVAB <ABDSC_LENGTH*ABDS$SC_F IB> + ABDSW_COUNT(RO) ,P1_ABD_CNT 
0134'CF if AQ 9E 36 MOVAB <ABDSC“LENGTH*ABDSC_NAME> + ABD$W~COUNT(RO) .P2-ABD~CNT 
01350°CF 22 AO 9E $3 MOVAB <ABDSC_LENGTH*ABDSC_RES> + ABDSW_COUNT(RO) ,P4_ABD_CNT 
9 3 
8 : Initialize miscellaneous info used by action routines 
Q000'CF 7¢ 08 CLRQ  NET$GQ_USR_STAT ; Init user's 10SB image 
QOOO'CF D4 3 CLRL NETSGL_PM_OuT ; Init NFB output parameter 
05 : 
06 ; Verify that the P1 and P3 buffers meet the minimum size 
ti 3 ~=requirements 
50 0000'8F B80 09 MOVW #SS$_ILLCNTRFUNC,RO ; Assume NFB too small 
DO 10 MOVL #NFBS_ERR_P1 : Qualify the error 
58 "CF pO 11 MOVL NETSGL PTR P1,R11 3; Get address of NFB 
0044'CF 5 D1 \¢ CMPL #5 NETSGL_SIZ_P1 ; Check for legal NFB size 
1A 1 BGTRU 100$ : If GTRU too small 
OOOO'CF D4 14 CLRL NETSGL_PM_OUT : Init output item count 
0054 "sr 3 13 esrt WETSGL_SIZ_P3 3 Was there a P3 buffer? 
; no 
0038'°CF 0114'CF 43 17 MOVAB aural P3,NETSGL_PTR_P3 ; Use dummy P3 
0034'CF be D 18 MOVL #2,NETSGL_SIZ_P3 3 ...and setup its size 
1 QO DO 19 20$: MOVL #NEBS GRRE Rl ; Assume P3 buffer is too small 
0034'CF 02 01 0 CMPL #2,NETSGL~SI2_P3 : Is P3 buffer big enough ? 
54 1A 1 BGTRU ; If GTRU then no 
0038'DF B84 : CLRW  @NETSGL_PTR_P3 : Init P3 “buffer” 
$i 3 Dispatch to action routine. Mark the IPR for buffer writeback 
5 ; if the action routine was successful or if RO = SS$_RESULTOVF 
cD° 00 «=FB : CALLS #0,B°DISPATCH 3; Disptach to process the request 
0000° CF 50 + 8 MOVW RO,NET$SGQ_USR_STAT 3; Set 1/0 status 
OA 1 g BNEQ 3 3 Was the status code zero? 
50 Q0000'8F 3C¢ 0 MOVZWL #SS$_ABORT,RO ; If so there's a bug, use catch-all 
0000° CF 8 4 1 MOVW RO,NETSGQ_USR_STAT ; Set 1/0 status 
07 E § 33$ BLBS RO, ; If LBS successful 
0000* 8F 0 861 CMPW RO, #SS$_RESULTOVF ; Result overflow ? 
>. 4 BNEQ § : If not, branch 
52 9A 5 35$ MOVZBL (R11)+,R2 > Get NFB fct 
52 0148°CF4 9A § MOVZBL WRIBCKFCTCR2],R2 : Get write-back buffer i.d.'s 
3 BEQL 0$ 3; If EQL then none 
04 52 » & 8 BB 1,R2,40$ ; If BS P1 buffer is to be written back 
138'DF 64 CLRW aP1_ABD CNT > Prevent write=back of Pl buffer 
04 52 02 €0 9 40$: BBS 2,R2,45$ : If BS P2 buffer is to be written back 
134° B4 4 CLRW = a2 ABD CNT : Clear descriptor count field 
08 52. 04 £0 45 45$: BBS #4,R2,50$ : If BS P4 buffer is to be written back 
0130'DF B84 4 CLRW  aP4_ABD_CNT : Clear descriptor count field 
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“SEP=-19 NETACP. SREINETCTLALL. MAR; 1 (5) 


CLRW @NETSGL_PTR ; Clear count of eytes returned via P4 
508: SET pit 1RP$V_FONC TResw STS(R3) ; Mark IRP for writeback 

MOV NETSGC_PM ~6uT, (RT1) :Updat e NFB parameter 
60$: fa + Return 


Error detected in argument List 


— Sete te 


DUP & 


FW OVOONAOUSE 


00S: or RO,NET$GQ_USR_STAT ; Store final I10SB 
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vba DISPATCHING $731 bbe 8:99:88 NETACP. SRCJNETCTLALL.MAR; 1 - & V 
CD 3 
14 : : Dispatch to proper function processor 
CD § BISPATCH: 
0828 e? r$' ~ WORD “M<R3,R5,R11> 3; ENTRY 
52 88 9A CF 66 MOVZBL (R11)4,R2 3 Get NFB function 
recede go Og 6 MOVL (R11) ,NETSGL_PM_IN 3; Save NFB parameter 
6 1 00D 64 CMPB =a R2., #NFBSC_FC_MAR ; Within range ? 
6 1A 2 2 BGTRU ILLFCT 3; Illegal NFB fct if GTRU 
0140'CF 0010°CF42 7D per 8s MOVa PRV_Q_REQCR2],QUAD_BUF ; Get user's privilege mask 
1 E1 E4 oe B3C #PROUST_BYPASS,- - Branch if user doesn't have BYPASS 
06 40 A des $ IRP$Q_NT_PRVMSK(R3) , 108 
Oey 370 SETBIT NETSV_BYPASS;NETSGL_FLAGS ; Remember privilege 
SOE 7 3! #64 is illegal in the FFS instruction <= this logic must be updated 
OEF 7 ;! to include both parts of the mask when privilege bits 32-63 are 
+H a i} defined. 
50 O0140°CF 20 00 A OOEF 376 10S: FFS #0,#32,QUAD_BUF ,RO 3 Get required privilege 
OD 13 OFS 7 BEQL o$ : If EQL none left 
OF 78 CLRBIT RO,QUAD_BUF : Clear the bit for loop 
EC 40 a3 «550—s«éE0 Oore 79 BBS RO, IRP$O_NT_PRVMSK(R3),10$ ; If BS user has privilege 
San 10 80 BRB NO_PRV : Else report error 
A 7 8108 81 30$: CLRQ R1 3: Init CNF,CNR pointers 
32°AF 9F 0107 8 PUSHAB 6*40$ 3; Setup return address 
OiGA Fi SOISPATCH R2,- 3; Dispatch on NFB function 
10m Be <NFBSC_LOGEVENT NETS$LOG_EVENT>,=- 
O10, 86 <NFBSCREADEVENT, NETSREAD_EVENT>,- 
O190A 88 <NFBSC_DECLNAME, DCL_NAME>,- 
ina 89 <NFBSC_DECLOBJ, DCL_OBJECT>,-=- 
134 ay <NFBSC_DECLSERV, DCL_SERVER>,- 
010A 4 <NFBSC_FC_SET, CTL_DATABASE>,=- 
10A 9 <NFBSC_FC_CLEAR, CTL_DATABASE>,- 
10A 94 <NFBSC_FC_SHOW CTL_DATABASE>,=- 
10A 395 <NFBSC"FC-DELETE, CTL DATABASE>,- 
: “ 2 <NFBSC_FC_ZERCOU, CTL_DATABASE>,- 
OA 11 1 98 BRB ILLFCT : IOS_ACPCONTROL function unkown 
04 ; 138 40$: RET 
0004 'CF 50 0 1 401 NO_PRV: MOVL RO,NET$GQ_USR_STAT+4 3; Qualify error 
50 600° 5c 1 & ¢ MOVZWL S*#SS$_NOPRIV7RO ; Set status 
4 : ? ? Z RET 3; Return to dispatcher 
01 pO 0O13C 405 ILLFCT: MOVL #NFBS_ERR_FCT,=- 3; Qualify error 
004 CF 1 : 4 : T$GO_USR STAT+4 
50 000'S8F 3C 014 4 MOVZWL #SS$_ILLCNTRFUAC RO : Illegal ACP control function 
04 0146 408 RET ; Return to dispatcher 
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Declare Name or Object ~SEP-1984 NETACP. SRCINETCTLALL. MAR; 1 (7) V 
\ot ] -SBTTL Declare Name or Object 
147 2 -ENABL LSB 
14 414 DCL_OBJECT: ; "DECLARE OBJECT’ action routine 
147 415 ASSUME NETSC -MAX_OBJ LE 255 
130 $18 ASSUME DUMMY-P2_CNG- GE 8 ; DUMMY_P2 buffer will hold object name 
OO3C CF rf 147 213 TSTL NETSGL_SIZ_P2 ; Was a P2 specified? 
461 148 41 BNEQ : If NEQ yes - error 
50 O004'CF QA 014 420 MOVZBL NETSGL_PM_IN,RO ; Pick up number for name conversio 
ey 1 4 BEQL 3 Zero is a | } “for DECLARED Objects 
OOOOOUFF 8F 0 obi Q1 4 PL #NETSC_MAX_OBJ : Is number within * lowed range? 
6 1A 138 4 BGTRU 0 : If GTRU then out of range 
150°CF 90 Q015D 424 OV RO,CTL poct NA ; Save object number as ZNA string 
3 cg 3 1o¢ 425 MOVAB DUMMY 3; Get pointer to name buffer 
0040'CF ; D 16 4 § OVL RY MET SGC. 4}. - ; Setup pointer to. it. 
OO3C'CF 5§ cf 19 4 MNEGL fons Pe ee ; Bias the name's 
83 SF4AG246F BF 3 171 428 OVL BAYS J+ 3; Start bul Ling ie t name 
FE85* 30 0178 429 BSBwW Ry NEI : oppend conver ed ob ect number 
OO3c'cF 53 iS 178 430 ADDL soinzas £1 _P2 ; culate name's e 
57 C 018 431 CLRQ ; Object name sR. is null in ZNA 
018 $36 3 string for numbered objects 
16 «11 Ht rr BRB DCL_ COMMON ; Finish in common code 
0184 t36 DCL_NAME : ; "DECLARE NAME'* action routine 
58 O00460°CF DO 0184 4 § MOVL NETSGL_PTR Ps -Re 3; Get string pointer 
57 OO3C'CF D0 0189 4 MOVL s T$GL-SIZ-P2,R7 3; And its size 
OC 57 D1 O18€ 438 CMPL {MTEC _MAXOBJNAM : Can't be bigger than this 
03 18 191 439 BLEQU 3.3 GTRU the Q10 error 
0099 = 31 O19e re 10$: BRW oe z;!better error code needed? 
O1SO"CF 94 0196 rei 208: CLRB CTL_DCLZNA ; Make obj number be 0 
EN 444 DCL_COMMON: ; Common code for obj and names 
Ng Snaemar 
Bion ret 3; INPUTS: R7,R8 Descriptor of ‘'name’’ portion of ZNA field 
019A 449 3 NETSGL_PTR_P Descriptor of actual object name 
19A 450 3 NETSGL-S1Z_P 
a 
O1S1°CF 68 4 28 O19A 438 MOVC3 R7,(RB8),CTL_DCLZNA+1 3; Finish building the ZNA string 
D6 OIA 454 INCL 7 3; Account for the object number 
58 0150' cf E 1A 455 MOVAB cil ur R8 3 Point to it 
ash D OIA $28 MOVQ grt DELZNA 3 Save object's ZNA descriptor 
1 6000 CF 0 OAc 45 MOVL Net cL “SAVE ace RI : Get UCB address 
50 Bi F f 181 $28 MOVZWL WSS8 Ni 3; Assume error 
D 186 45 TSTL atti : Is there an associated mailbox? 
ey 1 1B 460 BGEQ : If GEQ the 
58 OO00'CF OD 188 461 MOVL pet hen 3 CNR_OBI,R11 3; Point the “OB root block 
1¢ £06 SSEARCH egl opt +S,2na 3 Locate g notes ng ob ect in database 
1050 €9 O1CD 46 BLBC é > If bt ts not there 
100 464 SGEIFLD © {,l,ucb : uy Ff name has been declared 
51 50 FS 108 465 BLBS BABPARAMI : If LBS yes - error 
05 11 ODE 466 BRB 80g : Continue 


sat 


Declare Name or Object 


- Process ACP control Qio's 


AX/VMS Macro 


SSEp=1986 02:18:59 ENETACE. SREINEYCTLAL 


p 
TLALL.MAR; 1 


3 $67 40$: : 
if iss ; The OBI doesn't exist in the database, create one 
- 1E 47 6s8B CREATE_OBI ; Create OBI entr 
4D 25 18 if i 50S: BLBC ROn 1008 3; Exit on error . 
IE 474 ‘ : Mark OBI as “declared” 
56 O000'CF DO O165 47 MOVL NETSGL_SAVE_IRP,R6 ; Get the IRP address 
58 iC A6 4 1EA 259 MOVL IRP$L_OCB(RE) ,RB ; Get UCB address... 
Ha 3 $28 SPUTFLD obi,l,ucb 3 «and store it in the OBI block 
50 0C A6 DO O1FS 47 MOVL IRP$L’PID(R6),RO : Get the declarer's PID... 
O00000000'GF 16 Fp 480 JSB KESIPID_TO_EPID 3; «convert to EPID format... 
58 50 00 0 481 MOVL RO,R S$ eee 
06 48¢ SPUTFLD obi, l,pid + ...and store it in the OBI block 
58 28A6 3C 11 4 MOVZWL TRPSW_ HAN(R6) ,RB 3; Get the declarer's channel... 
32 tee SPUTFLD obi,l,chn 3 »--and store it in the OBI block 
0 486 : 
8 rit ; Send any pending connects to the declaring process 
57 0148'CF 7D 0 489 MOVQ  CTL_Q_DCLZNA,R7 ; Get ZNA descriptor 
FDD8' 30 5 490 BSBW NETSSCAN _FOR_ZNA 3 Send pending connects to object 
50 0000'8F C $8 491 MOVZWL #SS$_NORMAL ,RO ; Return success if we made it this far 
03.—=s'i1 D 136 BRB 100$ 3; Return with RO 
494 BADPARAM1: 
50 00° 00 495 S“#SS$_BADPARAM,RO ; Bad parameter 
05 £38 100$:  RSB 3; Return 
498 -DSABL LSB 
$00 
4 CREATE_OBI: ; Create OBI and insert it into the List 
208 : This subroutine in required so that the “‘utility buffer’’ acquired 
fe ; by the NETSGETUTLBUF co-routine will be released in a timely manner. 
306 BSBW NETS$GETUTLBUF : Get permission to use utility buffer 
50 BSBW CNFSINIT_UTL : Init “utility buffer’ as a CNF 
he: MOVL NETSGL_PTR_P2,R8 : Get object name string pointer 
09 MOVL NETSGL_SIZ_P2,R7 ; And its size 
10 SPUTFLD obi,s,nam 3; Store by oareet name 
11 OVZBL CTL_DELZNA,R8 ; Setup the object number... 
\¢ SPUTFLD obi,l, 3 .eeand store it in the CNF 
51 CLRL R 3 No “‘old’’ CNF 
ae BSBW cor Sh eseat ; Try to put block into List 
15 LBC. =—s RO, 108 : If LBC then failure 
218 SCLRFLD obi,v,set 3; Not created via a ‘‘’set’’ Q10 
1 OVL $*#SS$_NORMAL,RO : Indicate success 
215 10$: RSB ; Release utility buffer 
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vba Declare server process available for new 5-SEP-1984 83:99:83 NETACP.SRCJNETCTLALL.MAR; 1 - (8) 


-SBTTL Declare server process available for new connect 
DCL_SERVER = Process request from a server for another connect 
; This Q10 can be issued by a nonerivi loged process to indicate that 
; it is willing to process another incoming connect, as long as the 
; new connect matches the user context currently set in the server. 
; Inputs: 
R3 = IRP address 


FUSUSUSUSUSUS USSU 
FUSUSUSUSUSVSVSIOSIOSIOS 


Outputs: 


L_SERVER: 


WAWI WI WII WIIInonornononornoronong 


NOAA WO OD NAUIS WIN SO OO NAME WN OS OD NAMEN OS OO NAUE WN OO ONOUS Wn 


Find the database entry associated with this server process. If not 


Z None 
bc 


found in the SPI database, then it wasn't created by us. 


58 OO00'CF 00 MOVL NETSGL_CNR_SPI,R11 ; Get address of SPI root block 
5A 4 CLRL 1 3; Start at ig ela of list 
58 OC AS 00 MOVL IRPS$L_PID(R3) ,RB ; Get PID of requestor 
SSEARCH egl aati 3; Find it in the database 
03.50 §8 BLBS ~=—s- RO, 10 ; If not found, 
0084 1 106$ 3 report ‘illegal request” 


Store the IRP address in the database entry, to be later retrieved when 
an incoming connect comes in which this server can handle. If there is 
already an IRP waiting for this process, then return an error. 


bBo Ge Ge Ge ee 


MOPOPOPOPUPON 


FPP OO00000 0088 


Pia +-h-tabatalalaral argh yh? NF MWIWIWIWIWIWWIO SD OM HINDIII 


Mm 
co 
SOOOOSSS SOOSSOCOSOOOOSOOCOOCOOOOSOOSOSOSOOSOOOOOOOOOOOOoO 


54 
54 
e? 
4 
54 
54 
54 
54 
54 
54 
55 
: 
22 0$: $GETFLD spi,l,irp :; Is there already an IRP waiting? 
76 20 55 BLBS RO, 106s : If so, ‘duplicate request’ 
58 5 b0 55 MOVL RB : Set IRP address 
FD59" +30 55 BSBW CNFSPUT_FIELD : Save IRP in database 
pone ce D4 22 CLRL NETSGL_SAVE_IRP : Do not post IRP on return 
50 O000°CF »DO0 5 MOVL NETSGL-PTR_9CB,RO ; Get RCB address 
OC AO 6 B 55 RCBSW_TRANS(ROS ; Account for tucked-away IRP 
58 28 A3 C B 56 MOVZWL_IRPSW_CHAN(R3) ,R8 3: Get channel number 
; e SPUTFLD spi,l,chn ; Store it 
C 635 ; If this server was supposed to be handling a logical Link, then it must 
C 64 ; have failed to confirm the previous logical link for some reason. In 
C 65 ; this case, notify NETORIVER to break any previous Links intended for the 
: é > previous incarnation of the server. 
C 6 SGETFLD Hf 8 ncb 3; Was a Link being processed already? 
1450 €9 02 6 BC RO, 208 : Branch if not 
D 7 $GETFLD soi, l.pid ; Get the PID 
51 58 SOD D ? M ; Set to proper register for call 
52. 26 4 D 7 MOVL #NETSC_DR_EXIT,R2 ; Set “‘network partner exited 
FDIC’ ; 4 BSBu NETSSERVER_FAIL 3; Notify NETDRIVER that server done 
E 75 ; Clear out the fields relevant only to the last connect handled by this 
: g 3 process, since we know it is now done handling it. 


<z 
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Declare server process available for new 5-SEP-1984 02:18:59 CNETACP.SRCINETCTLALL.MAR;1 (8) 
4 20S: SCLRFLD spi,s.sfi 3; Clear prgcedure filespec 
7 SCLRFLD spi,s,ncb 3; Clear NCB 
0 SCLRFLD spi,s,pnm 3; Clear process name 


If the initial connect request hasn't been accepted yet, then assume 


E4 
EF 
at 
0 Be j : the process declared itself ready before gesting to the point where 
030 4; the pecegt ing procedure was run. So, satisfy the DECLSERV request now 
Be 5 ; $0 that first connect will be accepted. 
05 5 : SGETFLD spi L pid ; Get the PID again 
FCED' 30 19 8 BSBW  NETSRESEND_SERVER : Send pending connects to server 
50 01 5 1 MOVL #1,R0 3; Success 
TRE 
00000000'8F »D0 §315 235 100$:  MOVL #SS$_ILLCNTRFUNC ,RO ; Return error 
05 O31E 9 RSB 
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+H Cancel 1/0 eet 7 83:98:83 NETACP.SRCIJNETCTLALL.MAR; 1 ° 
iF $5 -SBTTL Cancel 1/0 
if Sop; 
1F 4 ; NETSDRV_CANCEL = Process cancel function from driver 
if 285 ; NETSACP_CANCEL = Process cancel function from exec 
1F 601 ; INPUTS: 
1F 6 § J NETSGL_SAVE_IRP = IRP address (NETSACP_CANCEL) 
iF 9 3 R11 = pointer to PID and CHN (NETSDRV_CANCEL) 
6 1F 605 ;-- 
1F O86 NETSDRV_CANCEL:: 
O16E ‘CF 8B «=O 1F MOVL (R11)+,CANCEL_L_PID ; Get the PID 
O17E'CF 68 80 4 608 MOVW (R11) ,CANCEL_@_CHN : Get the channel 
| ee ; , oy BRB CANCEL_COMMON : Finish in common code 
$3 B 611 NETSACP_CANCEL:: 
53 0000'CF 0328 ois MOVL NETSGL_SAVE_IRP,R3 ; Get the IRP 
O16E'CF OC AS 00 3 0 61 MOVL IRP$L_PID(R3),CANCEL_L_PID ; Get the PID 
O17E'CF 28 A3 0336 614 MOVW § IRPSWICHAN(R3),CANCEL_@_CHN ; Get the channel 
its 916 CANCEL_COMMON: 
Q033C 61 ; ; : ; 
033C 618 3 Search known object list to see if cancelling process is a known 
base $3) : object that should be removed. 
5B OO00'CF DO 033C es! MOVL NETSGL_CNR_OBI,R11 ; Get known object List root address 
D4 0341 6 ; CLRL R10 3; No CNF yet 
50 A DO 0343 623 10$: MOVL CANCEL_L_PID,RO : Get the match value 
00000000 ' GF 16 0348 624 JSB G*EXESIPID_TO_EPID ; Convert it to EPID format 
58 50 D0 O34E 625 MOVL - ; Set up register for $SEARCH 
0351 6g6 SSEARCH eql obi,l,pid ; Set to match on EPID 
4650 €9 O035€ 627 LBC =—_- RO, 20 : If LBC no match 
0361 628 $GETFLD ob{,l,chn : Get the channel 
58 O17E'CF 81 36¢ 629 MPW  CANCEL_W_CHN,R8 : Channels match? 
DO 3612 «20371 = 630 EQ 10$ : If NEQ no - try next 
0373 631 SCLRFLD obi,l,ucb ; Clear the UCB field 
037E O36 SCLRFLD obi, l,pid ; Clear the PID field 
0389 63 SCLRFLD obi,l,chn ; Clear the CHN field 
Baa¢ 634 $GETFLD obi,v,set 3; Was the ‘'set'’ Q10 used to create OBI? 
Al 58 8 QO39F 635 BLBS R8,10 :; If LBS yes, leave it in the database 
Fc5B° baat Os6 BSBW CNFSDELETE : Else attempt to mark it for delete 
9¢ 11 O3A5 63 ERB ; Loop 
FC56° 30 4 638 208: BSBW CNF SPURGE ; Drain queue of all CNFs marked for 
oo $73 ; delete 
Q3AA 641 ; Search server process database, and clean up any DECLSERV requests 
8 re ak 3 that happen to be associated with the cancelling channel. 
5B OO00'CF 00 AA 644 MOVL NETSGL_CNR_SPI,R11 ; Get Server Process root 
5A D4 AF 645 CLRL ; Start at beginning ; 
51 0162°CF 43 B1 e986 MOVAB SPI_CANCEL_SRCH,R1 : Point to multiple search key List 
FC47° 3 3B6 4664 BSBW CNFSSEARCH 3; Find the block 
2750 =—&9 B9 648 BLBC RO, 408 ; If LBC no match 
¢ 649 SGETFLD spi,l,irp : Waiting DECLSERV IRP? 
19 50 £9 C7? 650 BLBC RO, 4 : Branch if no IRP waiting 
FC33" 30 O3CA 651 BSBW = CNF SCLR_FIELD : Clear it from entry 


“oo 
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- Process database Q10s -SEP-1984 02:18:59 (CNETACP.SRCINETCTLALL.MAR;1 (10) 


-SBTTL CTL DATABASE = Process database Q10s 


AD: ALL - Pro 
v04- CTL_D 


AP od 
ma 


A 


Above the Q10 interface each ge appears to consist of a number of 
entries, e.g., node FRED, node 35, object FAL, etc. Each entry contains a 
—— of “ap > tis e.g., a node name, a node address, and object number, 
a line cost, etc. 


Below the Q10 interface each database consists of a number of CNF blocks, 

one CNF block per ory Each CNF block consists of a number of fields, one 

field per parameter. Although many CNF ‘fields’ are actually data cells 

ound within the CNF block, some are actually indexes of action routines 

which calculate the field's value. These action routine ‘'fields’’ are read- 

only. An example of such a field is the number of hops to a given node. 
| 
| 
| 
| 
| 


Each field has an ‘‘i.d."’ and a ‘‘value’’. The field i.d. serves as an index 
into the semantic table portion of that database's CoNfiguration Root block 
(CNR). The semantic table contains information for each field describing 
the field format (longword, string, etc), where in the CNF it may be found 
or which action routine to call to calculate its value, and miscellaneous 
information such as whether it is read-write, read-only, etc. 


A generic field defined for all databases is the NFBSC_WILDCARD field. 

It always matches any entry it is compared against: this field is used to 
facilitate database searches where it is desirable to find all CNFs. It 
is equivalent to not specifying any SEARCH key at all. 


There are actuaily two types of CNF blocks: The ‘‘actual’’ CNF blocks are CNFs 
which exist in the database even while not being referenced -- these blocks 
are created as a consequence of some IO$_ACPCONTROL Q10. The ‘'phantom’’ CNF 


PREPARA AAAAAAA AAAS AAAA AA AAAS OAS 
69.09 09 09 C9 C909 08 SI NIN NI NNN NNO AAA AOAOOrOrnur 
BONA WR CO OONAUE WN 0 ODNAOUE WN -O0 


Sete Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


68 blocks are CNFs which exist only while aetna Feterences -- these blocks 


OOCCOOCOCCOCOOCOCOCOCO OOOO OO COCO OCOCOOOOOOoOOoOO FO 
WWAWWIAAWA A WWNANNIW WANN AAI ANI WIAAA AANA 1 


ipalesinsiaslaslosiosleslosigslesiosl esl eslesiesieslesleslesl esl eslesles sles esl esl es esl esl esl esl esl esl ea! P 4 
ee eee ee ee ee ee ee ee ee ee w 


689 represent things known to the ACP but for which no database entry was ever 
690 defined. As an example, a ‘‘phantom’’ CNF is created while the ACP is 

691 obtaining information about a node which was made known to the ACP via a 
69 routing message but for which was never explicitly defined by the Network 
24, Management Layer. 
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Q10s To Access the NETACP DataBase 
The cos louiee (pt Q10s provide access to the NETACP data base. The 
factors which influenced the design of these Q10s were: 
© To provide a common mechanism to access all parts of the database 
in order to simplify programming. 


To allow the user to utilize a table driven approach. 


SII OO 


DOOOOCOCOCOCOCoOowun 


o To reduce the proliferation of a series of ad hoc QI10s which are 
difficult to re-implement if and when the NETACP is modified. 


“ 
ee ee ee ee ee ee me 


The Q10 parameters specific to these functions are: 


FUNC = #10$_ACPCONTROL. 
I0SB = Address of the optional I0S8. 


Parameters Pi thru P5 each pass the address of a quadword 
buffer descriptor. The buffers are used as follows: 


Supplies the Network Qio Control block (NFB). 

ne thy the search key block. 

Number of bytes returned in the P4 buffer. 

Returns or supplies the specified parameter values. 


WWAWANAWAWNAAWWNNNNWAANANANAAAANN 


MMMM MMMMMMMmMmMmMmmmmcrmrrrnicncncnirnicriery 
SS Sy Sy i i i i i i | 


MOMMY 3 2 SS 


v 
nunn 


Errors returned in the IOSB: 

SS$_NOPRIV User Lacks the required privilege. The second longword of 
the IO0SB contains the bit number of the first required 
privilege which the user did not have. 


SS$_ILLCNTRFUNC Illegal ACP control function. The second longword of the 
IOSB contains the reason as follows: 


SS$_RESULTOVF The P4 buffer is too small. 


SS$_BADPARAM One of the field identifiers was unrecognized. The value of 
the identifier is returned in the second 10SB Longword. 


SSS_ENDOFFILE No entries were found which matched a search bey The field 
i.d. of this search key is returned in the 2nd IOSB Longword. 


ee ee ee ee ee ee ed ee et et et et et et et et et et et et et et 


SQo_Qyq_Qw_ NNN 


BHP PWWIWIWI WII nononons 


N—OODNAUES WIN (OO DNAUS WN @ OOONAULS WN OVOONAOUFS WOOD 
Tere Tee Tee ee eee Terre eee re rerererererererererererererererererererererireeriereer ee 
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WAWWAWAWANNWAAWAWANWAAWNWWw 
MM MMMMMMMMMMMMMMMmMen nn 


| 
— 


F 13 


TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro V04-00 Pa 19 
vba CTL_DATABASE = Process database Q10s oro e En o8e §3:99:8 NETACP.SRCIJNETCTLALL.MAR; 1 - (13) 
-ENABL LSB 
CTL_DATABASE: ; Common Contrul Qio Processin 
56 O00468'CF 00 MOVL NETSGL_PTR_P1,R6 ; Get base address of NFB 


search key NFBs work with this A 


00000020 NFBSC_CTX_SIZE = 32 ; Accept the lesser of the two sizes 
02 08 ag »} Hag BOSE _SACHE KEV (RG) 82 ; Was old START ID field = COLLATE? 
CLRBIT NFBSV_NOCTX,NFBSB_FLAGS(R6) ; Force context to be stored 
oe, 0e D4 CLRL NFBSL_SRCH2_KEY(R6) ; Mark second search key not present 
04 OO35C'CF 01 2s: CMPL NETSGC_S1Z_P2,44 ; Is a context area present? 
06 14 f not, then don't store/fetch context 


BGTR ; I 
- SETBIT NFBSV_NOCTX,NFBSB_FLAGS(R6) ; No context area to be used 


388 End of kludge 

388 

388 

at Kludge to make old format control Q10's work with this ACP 
; NFBSC_CTX_SIZE = 32 ; Use old value 
H CMPL NFBSL_MBZ1(R6) ,#2 ; Was old START ID field = COLLATE? 
; BNEQ ; Branch if not 
3 as NEBSV_NOCTX NFBSB_FLAGS (R6) ; Mark context to be stored 
24$: SETBIT NFBSV_NOCTX,NFBSB_FLAGS(R6) ; Mark do not store context 
358: Chae NFBSL_MBZ1(R6) ; Clear obsolete START ID field 

88 End of kludge 

3:88 


MOVL NETSGL_PTR_P4,PTR_L_P4 ; Make copy of P4 descriptor 
MOVL NETSGL_S1Z_P4,SIZ_L_P4 


; Verify that the NFB (P1) buffer is large enough and that all fields 
: have proper values. This excludes the field i.d. List at the end 
; which is checked separately 


BRRRR RRR RRR RRR ERE R RRR EERE EERE ERR ERE EEE FE RWWA AAAS 
WYNN SSNS SSS SSSI SSS 
5009.09.09 09.09 09 09 09 09 09 SI NI NINN NI NIAAA AAA A AAA MUMMIES BS 
WIR OS ODNA NE WIN 0 ODNAU EWN $0 OD NAU EWN 0 OD NAME WIN OOD NOUE 


dd td et st I DH QOO OOO OCOCOCOCOCOCOCOCOCCCCCCOCCCOCCOCO BN HAMMMMMMMMmMmMmmmmmmrnrrn & 
SOV OVO OV BD Ve SGI) 8 Ye at a a kk tk a ot ot 2 ot ot I BIO OW SO OOOO OOOOL LLL SE 


SOOOOCOCOCOCOOCOOOSOOGOOSOOSOOSSOOOSGOOOOOOOOOSOOOOOCOOOCOOCOOOOOOOOOOOoOO 


51 03 00 MOVL #NFBS_ERR_P1,R1 ; Preset error quel itier 
52 0044'CF 009 MOVL  NET$GC_SIZ_P1,R2 : Get size of Pl buffer ' 
52. 10 ¢ SUBL § #NFBSL-FLDID,R2 : Subtract all but the field i.d. List 
3 size 

71 15 794 BLEQ ILL_FUNC : If LEQ then too small, report error 

795 ; TSTL NFBSL_MBZ21(R6) ; MBZ field non-zero? 

796 ;: BNEQ ; Report error if so 

797 ;: TSTW NFBSwW_MBZ2(R6) ; MBZ field non-zero? 

798 ; BNEQ LL_FUN ; Report error if so 

0D A695 79 TSTB = NFBSB_MBZ1(R6) ; MBZ field non-zero? 

Ss 800 BNEQ ILL_FONC ; Report error if so 


] 
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itt Kludge to make both the old re 7 NFBs and the new double 


42 ALL 


1. 02 
5B 02 A6 
51 
1B «58 
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C 
03 O000'CF 5B 
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5B 4 0000'CF4B 


51 04 
0124°CF_  0040'CF 
OOSC'CF 04 


ec 
OO40'CF 04 
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io's yi P-1 
- Process database Q10s “SEP-1 2: 

MOVL #NFBS_ERR_CELL,R1 : 

CMPW = NFBSWCELC_SIZE(R6),#1 ; Cell 

BEQL  ILL_FUNC : 

MOVL #NFBS_ERR_OPER,R1 : 

CMPB Ss BSB OPER (RG) = ; 
#RFBSC_OP_MAXFCT ; 

BGTRU —ILL_FUNC : 


: Find the CNR (semantic table) 


MOVL #NFBS_E ; 
MOVZBL NFBSB ERT ABASE CRG). R11 ; 
BEQL ILL FONG : 
CMPB R11, #NFBSC_DB_MAX : 
BGTRU ILL_FUNC ; 
BBC R11,X25_DB_MASK,10$ ; 
BRW REISSUE ; 
MOVL NETSAL ENR TABCR11),R11 ; 


3 Setup pointer to the count of 
3 counter is found in the first 


MOVL #NFBS_ERR_P2,R 


Ass 
MOVL NETSGC_PTR P23, BTR _CNFCNT’ : 


SUBL #4, NETSGL _SIZ_P2 ~ ; 
BLSS  ILL_FU 3 
ADDL #4, NETSGL_PTR_P2 ; 
CLRL aPTR_CNFCRT F 


38¢ gh: #0: $3 YArtyes Macro Vv04-00 


Pp 
NETACP.SRCJNETCTLALL.MAR; 1 


aseume sretegat cell size 
must either be GEQU 2, 


al cell s 


; If GTRU then yes, report error 


according for the database type. 


Preset error qualifier 
Get the database i.d. 
If EQL then no such database 


; Within range? 


If GTRU then out of range 
If BC then not exclusively an X.25 
database 

henissue Q10 to X25 ACP 


Get pointer to the root block (CNR) 


CNF's succesetul ty epeeees: This 
longword of the P2 buffer. Update 


the internal P2 buffer descriptor. 


sume P2 is too small 
Save pointer to counter cell 
ccount for bytes used 
If LSS then too small 
ican P4 pointer 
Zero the P4 count field 


: Verify that all field IDs in the NFB are known. 


MOVL #NFBS_ERR_P1,R1 


CMPL R2, 3 
BLSS bt FUNC 3 
BITL R ‘a 11 ; 
BNEQ ILL_FUNC : 
MOVAB tee FLDID(R6),R5 ; 
MOVL (R5)+ 3 
ASSUME NFBSC *ENDOFLIST EQ 0 : 
BEQL 30$ 3 
BSBW CNFSVERIFY : 
BLBC RO.BAD_ PARAM : 
SUBL R2 3 
BEQL af : 
BRE 20$ 3 


Assume NFB is too small 

At least one field ID aaa Se Ten 
If not, return an err 

Does NFB end on longword boundary? 
If not, return an 

Get address of first "field i.d. 
Get next field 

Field coratnemel value 

If EQL then at end of List , 
Make sure the field i.d. is valid 
Branch if invalid field detected 
Account for next field 

Branch if end of NFB 

Loop until all "Hels checked 


Some common error return paths 


; Report “illegal control function” 


EQL 0 BO no syeee caus size! 
: If EQL then tiles 
; Assume illegal 0 ER solue pn RE 
; Is it out of range? 
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TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro V04-00 Pa 1 
vO4 CTL_DATABASE = Process database Q10s gre EE nt obe $3: 99:83 NETACP.SRCIJNETCTLALL.MAR; 1 = (H) 
50 9900" Sf 3 ‘8 28 MOVZWL #SS$_ILLCNTRFUNC,RO ; Setup status code 
1 4 MOVL R1,R9 ; Copy error qualifier 
cone i : e) BAD_PARARS” sae part t "'b ; ter" 
: : 3; Repor ad parameter 
50 0000'8F C 049 6 MOVZWL #SS$_BADPARAM,RO 3; Setup status cod 
Bore 31 0490 BCS 2008: prurwt S88S- Bt: cbpessce Me tap: 
GA 64 
4A 65 : 
oo $6 3 Setup primary search key descriptor 
D A 68 30$:  MOVL  #NFBS_ERR_SRCH,R1 ; Assume illegal SEARCH KEY i.d. 
59 04 Ag D A $2 MOVL NFBSL_SRCR_KEY(R6),R9 ; Get search key i.d. 
8 1 4A 0 BNEQ 40 3; Branch if s yt 
59 1 4 4A9 71 MOVL “nae 3 Use WILDCARD as default search ID 
O0E8 O4AC ie 40$: BSBW GET_P2_KEY ; Get key value 
DB 50 «=€9 O4AF 7 BLBC RO, TLL-FUNC : If LBC error 
0008'CF 9 DO 048 74 MOVL R9,NETSGL_SRCH_ID ; Save i.d. -- it may have been modified 
OOOC'CF 03 A6 9A 0487 875 MOVZBL NFBS$B_OPER(R6)-NETSGL_OPER ; Save primary comparison type 
QO10'CF 57 7D Bee He MoVva R7,NET$GQ_SRCH_KEY ; Copy the key value 
bet 578 : Get secondary search key descriptor 
51 OC 00 O04C2 880 MOVL §§ #NFBS_ERR_SRCH2,R1 : Assume illegal ID 
59 08 A6 sf 04C 2 MOVL NFBSL_SRCAZ_KEY(R6).R9 ; Get search key i.d. 
03 12 04C9 Hf BNEQ 42$ ; Branch if specified 
59 ~=01 4 04CB HY MOVL #NFBSC_WILDCARD,R9 3; Use WILDCARD as default search ID 
00C6 0 O4CE 84 42$: BSBW GET_P2_KEY 3; Get key value 
B89 50 €9 0401 885 BLBC RO, TLL-FUNC : If LBC error 
O0O18'CF 59 D0 0404 886 MOVL R9,NETSGL_SRCH2_ID ; Save i.d. -- it may have been modified 
OOIC'CF OC A6 YA 0409 +t MOVZBL NFBSB OPER2(R6) NETSGL_OPER2 ; Save secondary comparison type 
0020'CF 57 7D 044 44 MOVQ R7,NET$GQ_SRCH2_KEY 3; Copy the key value 
04E4 530 > Call any prenwerqcess ing routines specifically assigned to the 
04E4 91 3; database specified in the NFB. These routines handle pre-search 
Rees O36 3 conditions such as normalizing the search key value. 
FB19" 30 O44 894 BSBW 6s CNF SPRE_QIO ; Preprocess database and SEARCH keys 
04E7 5 ; before processing the Q10 request 
B3 50 €9 rt 4 36 BLBC RO,209$ ; If LBC then error 
O4EA 898 > Unless the NFBSV_NOCTX bit is set, the P2 buffer will be 
O4EA 344 3 automatically updated with ‘current position’’. The only error 
O4EA 00 ; which could prevent this would be the Lack of context space in the 
4EA 901 ; P2 buffer. By checking now that this is at least NFBSC_CTX_SIZE 
TEA an8 ; bytes, then no errors can occur Later. 
OA 01 A6 ¢ EO Q4EA 904 Bs #NFBSV_NOCTX ,NFBSB_FLAGS(R6),45$ ; Skip if no ypdete requested 
51 04 DO O4EF 905 MOVL &#NF P2 : Assume P2 is too sma 
OO3SC'CF D1 O4F2 an8 CMPL NETSGC_SI7_P2,- ; Enough room in the P2 buffer for 
0 rf 4 #NFBSC_CTX_SIZE 3 automatic context area update? 
4 rt 443 BLSSU ILL_FUNC ; Error if not 
4-9 910 : Find the entry in the List at which to begin the search. If the 
4-9 = 911 3 context value in the P2 buffer is null (string count=0), then 
rf ais : set the CNF pointer to the head of the List. 
5A 5B DO O4F9 914 458: MOVL  R11,R10 ; Start standard CNF pointer at the 
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TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20: AX/VMS Macro V04-00 Page 
vo4 CTL_DATABASE = Process database Q10s iets Ti $3 :99 388 ENETACE. SREINETCTLALL MAR: 1 . (3 
rt} 13 ; begining of the database List 
4FC 5 3 Ki udee to make old START ID NFBs work with this ACP 
FC 18 788 since old format NFB didn't require a context area on non-collate Q10s 
4FC 4 8% This kludge prevents newer Q10s which want to start at a gives position 
rte 3 y ; ‘9 ny! st, but stay there, from working. Luckily, nobody does this 
: W. 
48 01 A6 O02 €0 rat 9 4 , #NFBSV_NOCTX,NFBSB_FLAGS(R6),50$ ; Skip if no context present 
2 : 4 ? 788 End of kludge 
59 16 AB 4 501 925 MOVL CNRSL_FLD_COLL(R11),R9 ; Get collating field ID of database 
O8F 2 ; 3 § BSBW Ger P2_KEY ; Get descriptor of context 
8 9 E 9 BLBC RO, ILL FUNC ; If LBC error 
8 5 928 TSTL BR : Is key value ‘‘null"’ 
, . 7 2p 929 BEQL 50$ ; If EQL yes, start at head of List. 
OO3C'CF § c8 50F 930 ADDL Rg we TseL 512 f ; Put descriptor back, so that it 
OO4O'CF 5§ C 514 931 SUBL R2,NETSGL_PTR_P ; still points to the context area 
02 02A6 91 0519 9 ; CMPB NFBSB_DATABASE(R6) ,ANFBSC_DB_NDI ; Searching node database? 
1F i 51D 9 BNEQ 48$ :; Branch not 
68 9 S1F 934 TSTB (R8) 3; Is first (format) byte 0? 
. bs B 1 332 BNEQ 48$ ; If not, use seq. search 
01 A8 8B 523. 936 TSTW 1(R8) ; Node number non-zero? 
16 13 05 $ 937 BEQL 48$ : If zero, skip optimization 
58 odd 05 938 PUSHL R8 ; Save registers 
7E 01A8 90 QS2A 939 MOVB 1(R8) ,-(SP) ; Get 2 bytes of node number 
7E 02 A8 0 05 940 MOVB 2(R8) ,-(SP) 
58 33 c¢ 05 941 MOVZWL (SP)+,R8 ; Get Last node number processed 
FAC8* 30 05 94 BSBW ~ Nigam te ; Find previous NDI position 
58 8ED0 82 8 9% POPL B 3; Restore registers 
— 50 3 5 944 BLBS RO,50$ : If found, then skip seq. search 
50 0000'8F Cc 05 3 945 48$: MOVZWL #S$$_ENDOFFILE,RO 3; Assume starting CNF can't be found 
51 06 8° bee 238 MOVL #NFBSC_OP_FNDPOS,R1 ; Find Last CNF whose key value is GEQU 
FAB7" 30 0546 94 BSBW CNFSKEY_SRCH_EX ; the key passed in R7/k 
2250 =€9 beer 368 BLBC RO,2008 3: If LBC then not found 
054C 950 ; Process the selected database entries (CNFs). If the MULT flag 
054C 951 ; is set, then continue to search for CNFs until an error is 
beec 926 : detected (most Likely ENDOFFILE or P4-buffer-full). 
OOA7 30 bee 954 508: BSBw Process CHF ; Process next CNF 
05 50 €9 O54F 955 BLBC RO,60$ 3; If LBC then error 
01 €0 0552 328 BS #NFBSV_MULT,- ; If BS then process next CNF 
F5 01 Ab 233 a3 NFBS$8_FLAGS(R6) ,50$ 
325 339 : In the case that we are returning more than one entry in the | 
557 960 ; P4 buffer cmt T flag is set), then do not return ENDOFFILE 
557 = 961 : or RESULTOVF if we have returned at least one entry. 
557 96 ; The user will get ENDOFFILE on the next Q10 if he has hit 
557 _ 96 ; =the end of the database. RESULTOVF is a normal condition 
238 44 ; if we are returning as many entries as possible in P4. 
0124'DF o 325 966 60S: TSTL @PTR_CNFCNT ; Any_CNFs successfully processed? | 
1 558 96 BEQL ; If EQL then no mapping needed | 
0000 ' 8F 9 B1 2? 96 CMPW Be #SS$_ENDOFFILE ; Did the search fail ? 
13 6 9 BEQL 70$ : so, return normal this time 
0000" 8F Q B1 0564 970 CMPW =- RO, #@SS$_RESULTOVF : P4 buffer overflow? — 
12 0569 971 BNEQ 2008 : If neither status, skip it | 
| 
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TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro V04-00 Page 
¥O45000 CTL_DATABASE = Process database Q10s at et $3:98:88 NETACP.SRCIJNETCTLALL.MAR; 1 “ B) 
50 00° 00 ef 37 708: MOVL S“*#SS$_NORMAL ,RO ; coats sak en at least 
: yw ° 
74 : 
é $r5 ; Update the I0SB image 
0000' CF 34 235 379 200$:  Movw RQ -NETSGQ_USR_STAT ; Set status code in I0SB 
05 E : 378 BLBS RO,205$ : If success, don't store qualifier 
0004" CF 09 7% «(97 MOVL. RO,NETSGQ_USR_STAT+4  ; Error qualifier if LBC in RO 
go BOROLCE «C3 (0578 © 980 2058: SuBL3 Nef SG. PTRAP 4: : Get number of bytes moved to P4 
363 ‘DF § +4 5 ; 9 § MOVW R2,QNETSGC_PTR_P3 ; Update count in P3 buffer 
0002'CF 8 5 9 MOVW gr OSR_STAT+2 ; Update count in I0SB image 
- ott E1 3 D 3 4 BBC ETSY PURGE, sea If BC then no need to purge database 
FAGAY 30 0593 986 BSBW  CNFSPURGE ~ ; ; Drain the queue of all CNFs marked 
596 98 : for delete. 
05 0398 988 210$: RSB ; Done 
059 989 
0597 +9990 -DSABL LSB 


<z 


youd . GET Poe yer ye . “velue Boas oet 1 83:99:88 PNET ACE. SRETRETSTL ACL MARS 1 — (94) 


$$ 
WKE G 
$f 3 , -SBTTL GET_P2_KEY = Get next P2 value 
$f 3e ; GET_P2_KEY - Get next value from P2 buffer 
96 ; INPUTS: R9 Field i.d. of the ke 
35 39 3 R8,R7 Scratch ‘ 
97 38 : & Scratch 
3 , 8 5 Re Scratch 
235 1001 ; OUTPUTS: R8,R7 Key value/descriptor 
97 1 § : Rg Field ID 
23° 1 3 R2 Number of bytes in field. If the field value is ‘‘null"’ 
97 1004 ; (negative longword value or string with a zero count 
597 1 82 3 field) then R2 is returned as a zero. 
597 1 $ s RO tatus 
23° : : R1 Error qualifier, if an error was returned. 
$897 1909 5 NETSGL_PTR_P2,SI1Z_P2 will be updated to point past value 
bea) 119 3 if routine returns successfully. 
B20! a GET_P2_KEY: 3; Locate next key in the P2 buffer 
50 00° oO 0597 9 MOVL S“#SS$_NORMAL ,RO 3; Assume success 
01 59 D1 O5S9A 1014 CMPL RO, #NFBSC_WILDCARD ; “wild card” key ? 
se 13° 0590 1015 BEQL : If so, then there is no key value 
FASE’ 30 OS59F 1016 BSBW CNFSVERIFY : Is field i.d. valid ? 
51 59 00 Beng 1017 MOVL R9,R1 : Return field ID in case of error 
4D 50 €9 OSAS 1018 BLBC RO,90$ 3; If LBC then no 
o2 so oo Beak 1030 wth ried yg 
OSAD 1021 #NFBSC_TYP_STR ; Is field a string ? 
13. «13 Bene + § BEQL 10$ 3; If EQL yes 
OSAF 1024 ; The field is type ‘‘bit’’ or ‘‘Longword’’. In either case the key 
; value is stored as a longword in the uffer 
BeAr 19 2 lue is stored l d in the P2 buff 
52, 04 00 OSAF 1087 MOVL #4,R2 : Setup field size 
52 003¢ "CF D1 582 1028 CMPL NETSGL_SIZ_P2.R2 : Can it fit? 
7 1F Q587 1029 BLSSU ; Branch if not 
58 0040'DF DO 0589 10350 MOVL @NETSGL_PTR_P2,R8 ; Get field value 
13.4 «19 gee 1031 BLSS 30$ : If LSS then field value is ‘‘null”’ 
22. «172 2¢ ' $ 108 BRB 70$ 3; Continue in common 
oa 1034 ; The field is type string’. It is stored in the P2 buffer as a 
bee ! 5 ; word of count followed by the string. 
02 OO3C°CF 01 O5C2 1 $ CMPL NETSGL_SIZ_P2,#2 ; P2 buffer big enough for count field 
27.) =F «2OS5C? «1 3 BLSSU ; Branch if no 
58 's pa 8 5c9 1 VL NETSGL_PTR_P2,R8 3; Get pointer to the count field 
5788 ace 1040 CVTWL «= (RB) +, R7 ; Get count field value |. 
96 1A Q5D1 1041 BGTRU : If GTRU then not “‘null 
2 7C Q5D3 1 rk 303: CLRQ. SR ; Zero value/descriptor 
2 04 DS 104 $: CLRL R : Indicate “null” field value 
an D7? 1044 BRB 3; Take common exit 
57. 02 C1 0509 1045 40$ ADDL3 #2,R7,R2 3; Get total field size 
OO3c'CF 01 O5DD 1 46 CMPL NETSGL_S1Z_P2.R2 : Is the P2 buffer big enough ? 
96 1F QSE2 104 BLSSU ; Branch if not 
003C "CF C2 O5E4 1048 70$: SUBL kK 3 


eNETSGL_SIZ_P2 ; Account for bytes used in P2 buffer 


as? 


TCTLALL - P 
Via000 GET PS RE 
0040'CF 9 104 ADD R2,NETSGL_PTR_P 3 
3 4 4 Ree ETSGL_PTR_P2 Advance past bytes used 
51 9 BO FO 1 60$: MOVL #NFBS_ERR_P2,R1 ; Indicate P2 is too small 
0 »d4 i LRL RO ; Indicate error 
05 FS 1054 908: RSB ; Return status in RO 


; L 13 pee -. : 
eect next Pe value "SrSEp=19RC O3:48:85 YNEGACE. SRESneveti ace man:1 29° cf 
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S$ 
rocess each CNF block SEP-1984 NETACP. 


wey ALL C 
v04- PRO P 
§ ‘; -SBTTL PROCESS_CNF = Process each CNF block 
5 
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Macro V04-00 Page $6 
SRCINETCTLALL.MAR; 1 (15) 
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Process each (or the first) CNF block found which matches the search key 
Creating a new CNF 


o The SET Qio is used to both create new and modify existing entries. 

o The Qio issuer is not always aware if the entry already exists 

o If the CNF addressed in a SET Qio is not found then a new CNF will be 

created only if the SEARCK_KEY is not ‘'NFBSC_WILDCARD'’. The SEARCH_KEY 
vejue is inserted into the CNF immediately after it is created. If 
this field is not writeable then the returned Qio status code should 
convey the meaning ‘no such entry’’ (i.e., SSS_ENDOFFILE). 


Note that the created CNF may not meet the requirements which allow it 
to be inserted into the database. 


o The decision whether or not create a new CNF entry is independent of 
the current position in the database traversal. 

; Inputs: 

CNR address f 

Address of starting CNF in List. 
NFB address 
NETSAL_SRCH_LIST is setup. 
; Outputs: 
RO = Status 
R1-R5,R7-R10 are destroyed. 


PROCESS_CNF: ; Process the next database entry 
CLRL PTR OLD cee) ; Initialize old CNF address 
CFC. 


R11 
R10 
R6 = 


. 
° 

. 
° 

7 
° 
° 

. 
° 
o 
o 
e 
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° 
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0128°CF D4 
66 


23 
62 12 


a 
CMPB nFBSB FC - ; Is this a ‘SET’ Qio? 
#RFBS SET 


BNEQ 60$ : Branch if not 
: Find the next CNF for a “‘set'’ function 
CMPL NETSGL_SRCH_ID,#NFBSC_NDI_ADD ; Searching by node address? 


4 
9 
02010012 8F 0008'CF 0 
1 ; Branch so 
§ CMPL N TSGL_SRCH_1D.ANFBSC_NDI_TAD ;. Search by cponeferace address? 
2 
0 
1 
2 


D1 
13 
02010010 8F O008'CF 01 
19 +12 :; Branch if not - skip 
00 OOOC'CF 01 10$: CMPL NETSGL_OPER,#NFBSC_OP_EQL ; Using equality match? 
1 1 BNEQ 208 ; Branch if not 
58 0014°CF » MOVL OF 1860_SRCH_KEV +4 RE :; Get desired node address 
gp 
; 
E 


If zero, then skip 


A 
F9D8° 
A 


10 30 


R10 Save registers 
BSBW NETSLOCATE_NDI Find previous NDI position 
8E R1 Restore registers 
BLBC RO, 308 If not found, then make new one 


Else, use seq. search so that loop 


i ee a ee ee ee ae a a a ee ee ee ee ee ee ee ee a ee ee ee a de od 
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Wecobo PROCESS_CNF = Process each CNF block g-seFe 1384 83: 8 3 YNETACE. SRCINETCTLALL.MAR; 1 ° (5) ' 
62— 1113 3 nodes, etc. processed in sequence ! 
29 9000 8F C 06 1114 208 MOVZWL #SS$_ENDOFFILE,RO ; Preset error code ' 
1 0008'CF 633 1115 MOVAB NET SAL SRCH_LIST,R1 : Point to search key List ' 
P9G3" 6 1116 BSBW FSSEARCH_ EX 3 Find the next CNF ' 
68 50 € ° e Wie BLBS RO. 7 : If found, then don't make new one 
6 : 1119 ; Initialize a new CNF entry ! 
59 0008'CF b0 3 : 1121 30$:  MOVL NETSGL_SRCH_ID,R9 ; Get primary search key 1D, ' 
57 BO10" GF D 0645 11 4 MOVQ R5 AN SRCH-KEY,R7 3 Get primary search key va y 
01 9 Di 0648 11 CMPL #NFBSC_WILDCARD : Did user have particular tue in mind? f 
11 13 648 1124 BEQL 40$ : If FL no, don't attempt creation f 
F9B0' 64D 1125 BSBW NE TSGETUTLBUF ; Claim the utility buffer f 
F9AD' 30 $20 1126 BSBW CNFSINIT_UTL : Init the “utility buffer" as a CNF f 
50 0000'8F C 0653 1127 MOVZWL #SS$_WRITLCK,RO ; Assume PUT_FIELD error f 
FOAS*’ 30 0658 1128 BSBW CNFSPUT_FIELD 3 Attempt to store SEARCH KEY f 
50 50 5s 0658 1129 BLBS RO, 76$ : If LBC then return error to user. f 
00d2 31 O65 1 0 40$: BRL 206$ : Take common exit ! 
0661 113¢ ; Find the next CNF for a non-set function ! 
50 Q000°8F 3C 0661 1134 60S: fovzue esse ENDOFFILE,RO ; Preset error code f 
51 0008'CF 3 0666 1135 MOVAB NETSAL_SRCH_LIST,R1 ; Point to search key List f 
F992* 30 0668 1136 BSBW CNFSSE ERR RCH_EX 3 Find the next CNF ( 
38 50 =«EB Doge 1136 BLBS RO,75$ : Branch if found 
0671 1139 ; Ona “‘show’’ function, if this is . request, for a specific : 
0671 1140 ; node by address, and the node hasn't been ‘'set’’ in the : 
0671 1141 ; database, then use the dummy NDI —* allow the operation : 
bee, 1108 3 to continue. : 
$6 91 0671 1144 CMPB wrbte FCT ng) “a a : Is this a SHOW request? : 
4 12 0674 1146 BNEQ 40$ : Branch if not : 
A 05 0676 1147 TSTL R10 : Did we start from beginning? ‘ 
05 13 0678 1148 BEQL 70$ : Br if yes, use DUM_NDI if necessary $ 
58 SA 01 O67A 1149 CMPL R10,R11 : Did we start from Foot? : 
DF 12 5343 1150 BNEQ 40$ Br no, return error : 
02010012 8F 0008'CF } 44 V3) 70S: cart WETSGL_SRCH_ID, - #NFBSC Noi ree inft'so by node address? : 
02010010 8F eoee"s } rey 1138 rt WG SELSRCH ID, o#NFBSC Noi “Bran aigered by rie address? : 
00 OO00C'CF D1 0695 1155 718: CMPL NETSGL_OPER,#NFBSC_OP_EQL ; dsing equality match? 1 
C 1 69A 1128 BNEQ 40$ ; Branch if not 1 
58 0014'CF 06 69C 11 MOVL NETSGQ_SRCH_KEY+4 ,R8 ; Get desired node address | 
1 6A1 1138 BEQL 40$ : If zero, then s ip 1 
FOSA® 30 O6A3 115 BSBW WE TER OCATE NOI 3; Find previous NDI v pesition 1 
B5 50 =€9 ny] 1189 BLBC 3; If not found, then report error 
6A9 1196 : Determine and save the current position context away, since 1 
6A9 116 >: the CNF entry may not exist after a SET/CLEAR if it is new 
oh 1168 : and fails to be inserted 
128°CF SA AD 1166 75$: MOVL  R10,PTR_OLD_CNF : Store CNF address { 
, $8 . 14 AB ti *, 1189 76$: MOVL CHREL -FCD_COLL(R11).R9 ; Get field i.d. for this database \ 
7E 04 Q6B2 1168 CLRL 3; Init flag to indicate alloc failure } 
5E DD 0684 1169 PUSHL ~ ad 3 Save accessible address for copy ; 
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B 
TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro Vv04-00 Page 
vba PROCESS_CNF = Process each CNF block ett $3:48:89 ENETACE. SREINEYCTLALL MAR: 1 . (3) 
F947" 3 686 1170 BSBW CNF T_FIELD : Get field's value 
19 50 € 689 1171 BLBC RO rm = ; Br if error 
51 57 Oc C1 068 1126 ADDL3 #12,R7,R1 ; Compute Length of storage block 
F930" 30 06CO 117 BSBW ON TEaLCocate ; Allocate storage to hold string | 
OF E9 O06C3 1174 BLBC RO,77 ; Br if error 
9% AE DO 06C6 1175 MOVL R2,4(SP) ; Save address of allocation 
0 OC Ad 99E O6CA 1126 MOVAB 12(R2),RO ; Point to string storage area 
6 50 D0 O6CE 117 MOVL. RO, (SPS 3 Save real collating value pointer 
60 6 5 2 6D1 4108 MOVC3 = R7,(RB), (RO) : Copy otring text into buffer 
57 OD oe 1103 77$: PUSHL R ; Save collating length 
pen? 1183 3 Call action routine to process CNF fields. 
EC'AF 9F 0607 1188 PUSHAB B*80$ ; Setup return address 
pepA Vike SOISPATCH NFBSB_FCT(R6),TYPE=B,- ; Dispatch on Funtion code 
O6DA 1186 <NFBSC_FC_SET, ACTION_SET>, =; 
O6DA 1187 <NFBSC_FC "SHOW ACTION-SHOW>, =; 
O6DA 1188 <NFBSC_FC~CLEAR ACTION-CLEAR>, -; 
06DA 1189 <NFBSC_FC-DELETE, | ACTIONTDELETE>, -; 
O6DA 1190 <NFBSC_FC_ZERCOU, ACTION_ZERCOU>, -; 
O6DA 1191 > 
Rees 1138 BUG_CHECK NETNOSTATE,FATAL 
57 8€ 7D O6EC 1194 80S: mMOVa (S$P)+,R7 ; Recover collating descriptor 
52 saa O6EF 1195 POPL R2 3; Restore address of allocated block 
05 13 O6F2 1138 BEQL 82$ ; If EQL, allocation failure 
QOOO'DF 62 OE O6F4 119 INSQUE (R2),@NET$GQ_TMP_BUF ; Insert onto Senporery buffer queue 
56 0048'CF DO O6F9 1198 82$:  MOVL NETSGL_PTR_PT.R6 ; Recover pointer to NFB 
O6FE 1200 : If operation was successful, then update the P2 context area 
O6FE 1201 ; with the current position in the database, so that subsequent 
pore 1506 : Q10s will continue from this point. 
0000'8F 50 81 bore 1soe CMPW RO ,#SS$_RESULTOVF ; Result overflow? 
2 13 0703 1205 BEQL  —- 200$ : If so, don't treat as a “real error’ 
EO 0705 1206 BBS #NFBSV_ERRUPD,- : If set, then update even on error 
03 01 A6 TAY 1207 NFBS$B_FLAGS(R6) ,85$ 
26 50 E9 O70A 1208 BLBC RO,20 ; Else, if error, then don't update P2 
02 €0 070D 1209 85%: BBS #NFBSV_NOCTX,- : If NOCTX flag set, then user wants to 
13 01 A6 Bru 1210 NFBS$B_FLAGS(R6),90$ ; stay on this entry for a while 
50 dD re 1211 PUSHL R ; Save final status 
51 Q0040°CF DO 0714 1 1 MOVL WETSGL PTR_P2,R1 ; Point to P2 context area 
81 7 0 Brie 121 MOVW R7,(R13+ ; Enter count of bytes in string 
00 68 7 C O71C 1214 MOVCS R7,(R8),#0,- ; Enter string tex 
61 20 0720 1215 #NFB$C_CTX_SIZE,(R1) 
0 8ED0 8 4 : 16 905 POPL RO ; Restore final status 
f 2 : 18 ; Update the CNF count and the P3 count of P4 buffer bytes used 
0124'DF D6 a 3 : 9 INCL @PTR_CNFCNT ; Update mubor of complete CNF blocks 
3 processe 
O30'CF AZ 0729 1 ¢ SUBW3 NETSGL_PTR_P4,- 3 Eodate count of bytes used in the P4 
11C'CF 72d (1 PTR f P4,- ; buffer 
038'DF 7 9 1024 @NETSGL_PTR_P3 
05 07 1225 200$ RSB 


| 


C 14 
wey ALL - Process ACP control Qio's a St 9 91:40:83 AX/VMS Macro V04-00 Page $3 
Vv PROCESS_CNF = Process each CNF block -SEP=1984 02:18:59 CNETACP.SRCINETCTLALL.MAR;1 (17) 
734 1227 
A 9 ! 8 -ENABL LSB 
754 1250 ACTION_SET: ; ACP Control ‘set’ Q10 action routine 
734 1231 SETBIT NETSV_SETOIO,NETSGL_FLAGS ; Set vtee to indicate Q10 type 
OA 11 , g ; BRB 50$ ; Continue in common | 
738 1254 ACTION_CLEAR: ; ACP ‘clear’ QI10 action routine 
02 €1 O738 1235 BBC #CNFSV_FLG_ACP,=- ; If BS then block is a ‘‘phantom’’ | 
05 0B AA 730 1 5 CNFSB-FLGTR105 ,50$ ; 
ro : | 
48 1 § ; The ‘‘phantom'’ CNF is being used to represent a specific database 
740 1240 ; entry. Go thru the motions of clearing the specified parameters in 
Bree 1241 ; order detect errors (such as clearing a read-only parameter) so 
0740 1 rf ; that this entry has the same behavior as the CNFs that exist in the 
te 124 ; database as ‘‘actual’’ CNF blocks. 
740 1244 3 
0740 1245 : 
0010 30 tok 1246 8SBw SETCLEAR ; Clear specified parameters 
OD 11 0743 1247 BRB 100$ ; Delete the ‘'new'’ CNF 
0745 1248 3 
0745 1249 : 
0745 1250 ; Attempt to SET/CLEAR the new CNF values. If successful then 
Bote : 33 ; attempt to replace the old CNF entry with the new one. 
0745 1 3g . 
0c 10 0745 1254 50$:  6SB8B SETCLEAR ; SET/CLEAR the new values 
08 50 £9 0747 1255 BLBC RO,100$ ; If LBC then error 
56 0128'°CF 00 O74A 1 2$ MOVL PTR_OLD_CNF ,R6 ; Get pointer to original CNF 
FRAE’ 30 O74F 125 BSBW CNFSINSERT 3 R6 => old, R10 => util on input 
8728 1258 ; R10 -> whatever one makes it, R6 
0752 1259 ; and original R10 are lost 
0752 1260 ; Attempt to insert new CNF entry 
05 0752 1261 100$: RSB ; Else return error 
075 1666 
0753 126 -DSABL LSB 
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TCTLALL - Process ACP control Qio's 16-SEP-1984 01:20:25 VAX/VMS Macro v04-00 Page 30 
vba PROCESS_CNF = Process each CNF block ety 7 83:99:88 NETACP.SRCJNETCTLALL.MAR; 1 ’ (19) 
7 1265 
f ! 6g SETCLEAR: ; Common SET/CLEAR processing 
7 1 oe ; R11 = CNR pointer 
753 (1 $ ; R10 = CNF pointer 
7 1270 ; R6 = NFB pointer 
7 1271 ; 
7 1 i 
753 1273 108: —«; | 
7 1274 3 | 
7 1275 ; See if the CNF is ‘‘locked’’, that is, if its conditionally 
oe ! 6 ; writeable fields are locked and cannot be written. 
753 (107 : 
59 10 AB DO O7535 1 x MOVL CNRSL_FLD_LOCK(R11),R9 ; Get i.d. of ‘‘lock’’ field 
0757 1 Hf CLRBIT NETSV_CNFCCK,=- ; Assume that conditionally writeable 
0757 1281 NETSGL_FLAGS ; fields are writeable 
FRAO" 30 O75D 1 Ht BSBW cor geet F TEL ; See if it's set 
06 58 E€9 0760 128 BLBC R8,20$ : If LBC then not set, not “locked” 
0763 1284 SETBIT NETSV_CNFLCK,- ; Indicate that conditionally writeable 
0763 1 3 NETSGL_FLAGS : fields are not writeable 
0769 1 § 20$: 3 
0769 128 ; 
0769 1288 ; We cannot alter the only copy of the current CNF in case the Qio 
0769 1289 ; eventually fails. We must create a clone and modify it. If all 
0769 1290 3 oes well it will eventually replace the original CNF in the 
0769 1291 $ atabase. 
0769 1 38 : 
0769 129 ; 
58 0128'CF 00 0769 1294 MOVL PTR_OLD_CNF ,R8 ; Recover pointer to ‘‘old’’ CNF 
09 #1 A 1295 BEQL 25$ ; If EQL then none, R10 points to 
0770 1296 ; the up tity buffer already 
F88D' 30 444 1297 BSBW CNFSINIT_UTL : Init “utility buffer’’ as a CNF 
F88A* 30 0773 1298 BSBW CNFSCOPY j Copy R8 CNF to R10 
18 50 €9 0776 1299 BLBC RO,40$ ; If LBC then error 
gree ip 
23 1 8 : Lip down the field i.d. List in the P1 buffer. For each field 
0779 130 ; attempt to either clear or set the field according to the type of 
Bree 1388 ; Qio being processed. 
0779 1 BS ; Before setting/clearing the field, read it so that it may be 
779 «+130 ; compared to the value which the Qio is trying to set (comparison 
a4 1 38 3 for the GLERe Qio is ‘is it already clear?*; comparison for the | 
779 «1 ; SET Qio is ‘does it already have this value’). This is done for 
8058 : 1? ; the following reasons: 
779: «1 \ : o If the field is write-locked and the new value equals the old | 
779 «131 : value then no error should be returned. This is easier to | 
779 «1314 s check before the modification is attempted than after it fails. 
779 «1315 ; o If the values are the same then the modification is not needed | 
779 «1 16 3 and the “‘put field’ is more expensive than a ‘‘read field’. 
779 «131 ; setting a field to its original value is ge tues ty too uncommon 
779 «+1318 3 since Cin NCP terms) the safest way to update both the | 
779 «1319 3 disk resident and NETACP resident databases is with the 
44 ' $9 3 NCP commands: | 
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SEP-1984 01:20:25 VAX/VMS Macro V04-00 Page 
~$FE= 1382 83:98:83 NETACP.SRCIJNETCTLALL.MAR; 1 . 
: NCP>DEF entity-type entity-id parameter 
; NCP>SET entity-type entity-id ALL 
ROVAg NFBSL_FLDID(R6) ,RS ; Point to the first field i.d. 
ADDL NETSGC_PTR_P1 .NETSGL_S1Z_P1 RY ; Address of end of NFB 
CMPL R5,R ; Are we at the end of the NFB? 
BGEQU 40§ : If so, then we're done 
OVL (R5)+,R9 ; Get next field i.d. 
ASSUME NFBSC_ENDOFLIST EQ 0 
EQL 40$ ; If EQL then no more field i.d.s 
BSBB 1908 ; SET/CLEAR the field 
BLBS RO, 3508 ; Loop unless error is signalled 
MOVL NETSGL_PTR_P4,PTR_L_P4 ; Reset the P4 descriptor for the next pass 
MOVL NETSGLSIZ~P4,SIZ~L~P4 
RSB ; Return with status in RO and error 


; qualifier in R9 


if LBC in RO then the field is already clear in the new CNF and 


: If this is a SET Qio then branch. Else, this is a CLEAR Qio -- 
: there's no need to attempt to clear it again. 


BSBW = CNF SGET_FLD_EX 
MOVW RO,GET_W_STATUS 
BBS #NETSV-SETQIO,- 
io NETSGL_FLAGS, 105$ 
BSBW CNFSCLR_FLD_EX 


BRW 330$ 
BRW 320$ 


; Get the current field value for later 
reference using access rights of user 
Save status 

If BS then SET Qio 


If LBC then field is already clear 
Clear the field according to the 
user's access rights 

Return with status in RO 

Return with success in RO 


: This is a "SET Qio. If the field value is not null and it is 
3 wes than the current value in the CNF then store it into the 


; Save the field/descriptor 


MOVQ R7,R3 : 
PTR L_P4,RB ; Get new pecemeter pointer 
MOVZWL #SS$_RESULTOVF,RO ; Assume P4 is too small 
EXTZV #NFBSV_TYP,- ; 
#NFBSS_TYP,R9,R1 3; Get field type 
SOISPATCH Ri,- ; Dispatch on field type 
<NFBSC_TYP_V, 00$>, -; Bit 
<NFBSC_TYP_L, 00$>, <-; Longword 
. <NFBSC_TYP_S, 00$>, =; String 
BUG_CHECK NETNOSTATE,FATAL 


; SET bit’ or “‘longword’’ field value 


sa 


0118°CF 4 
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SuBL «#4, SIZ_L_P4 

BLSS $363 sities 

MOVAB 4(RB),PTR_L_P4 
MOVL (RB) RB 

BLSS 20$ 

BLBC GET W_STATUS,317$ 
CMPL =—s RB, RG 

BRB 315$ 

; = SET “’string’’ value 
SUBL #2 S1Z_L_P4 

BLSS  330$ 

MOVZWL (R8)+,R7 

MOVL R7,R2 

MOVZWL NFBSW_CELL_SIZE(R6),R1 
BEQL  310$ 

SUBW «#2, R1 

MOVL RI Re 

CMPW SRR 

BLSSU 330$ 

MOVAB (R8)CR2J,PTR_L_P4 
SUBL Re SIZ_L_P4 

BLSS 3308 

TSTL = R? 

BEQL 320% 

BLBC GET W_STATUS,317$ 
CMPL = R23, R7 

BNEQ 317% 

CMPC3 = R3, (R4),, (RB) 

BEQL 3206$ 

CLRL = RO 

BSBW CNFSPUT_FLD_EX 
BRB 330$ 

MOVL  #1,RO 

RSB 


SSEP=198 


1:20:25 VAX/VMS M v04-00 Pp NI 
83:48:83 NETACP. SRCINETCTLALL MAR: 1 a (38) Vf 


Account for field size 

If LSS the P4 buffer is too small 
Update to next parameter pointer 
Get parameter value 

If LSS then treat as a NOP 

If LBC then param not yet set 
Does old value EQL new value ? 
Continue in common 


Account for string count field 
If LSS then too small, report error 
Get string size 
Make a copy 
Get fixed string cell size 
If EQL then cell size is not fixed 
Adjust for count field 
Set amount of P4 space used by cell 
Is picias size bigger than cell? 

e the error 
Store address of next field 
lculate P4 buffer bytes remaining 
SS then P4 buffer is too small 
he eeeong null? 
QL yes, treat as a NOP 
BC then param not yet set 
old and new strings of equal size 
EQ then must set new value 
old value EQL new value 
If EQL then no need for set 
No pre-set error code 
Attempt to store new value 
Take common exit with status in RO 
Indicate success 
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TCTLALL - Process ACP 1:20:25 VAX/VMS Macro V04-00 Pa 3 
yo PROCESS_CNF = Process each CNF block -SEP-1984 83:98:83 ENETACP. SREINETCTLALL MAR: 1 ” 3d) 
43 1420 ACTION_DELETE: ; ACP ‘Delete’ Q10 action routine 
4 14 SETBIT NETSV_DELETE,NETSGL_FLAGS ; Indicate function type 
ri 1 ; First move the specified fields to the P4 buffer if it exists 
50 01 OD 48 1425 MOVL = #1, RO ; Assume success 
002C CF D 48 14 8 TSTL N f$GL_S1Z_P4 : Is there a P4 buffer? 
0S. 1 4F 14 BEQL : If EQL no, continue 
of 18 2} 14 3 BSBB ~ I Sea ; Move the fields to the P4 buffer 
03 E 53 14 BLBC RO,208 : If LBC then error 
56 1? 0 ; 
3 14 ; Mark the CNF for deletion. 
56 14 3 
Bae 1434 : 
F7A7" 30 0856 1435 10$:  @8SBW  CNFSDELETE ; Attempt to mark CNF for delete 
05 TH 14 § 208: RSB ; Return status in RO, qualifier in R9 
35A 14 
085A 1438 
085A 1439 ACTION_ZERCOU: ; Zero and optionally read counters 
085A 1440 SETBIT NETSV_CLRCNT,NETSGL_FLAGS ; Flag "clear counters’ 
O85F 1441 ; and fall thru 
O85F 10eg 
O85F 144 
O85F 1444 ACTION_SHOW: : “SHOW Qio action routine 
F79E* 30 O8S5F 1445 BSBW CNFSPRE_SHOW ; Pre-process the CNF for ‘‘show’’ Q10 
38 50 =séEY pate 1446 BLBC RO,40$ ; Branch if error detected 
0865 1447 : 
0865 1448 8 . 
0865 1449 3: Move each field specified in the NFB into the P4 buffer. 
i 
55 10 A6 43 Opes 1326 MOVAB NFBSL_FLDID(R6),R5 ; Get address of first field i.d. 
O120°CF O11C'CF DO 0869 145 MOVL P 4,PTR_L_OLDP4 ; Save current position in P4 
59 0044°CF O0048'CF C1 0870 1454 208: ADDL3 NETSGC_PTR_PT.RETSGL_S1Z_P1.R9 ; Address of end of NFB 
59 55 D1 0878 1455 CMPL R5,R9 3; Are we at the end of the NFB? 
20 if 0878 1456 BGEQU 30§ : If so, then we're done 
59 85 00 087d 1457 MOVL (R5)+,R9 : Get next field i.d. 
0880 1458 ASSUME NFBSC_ENDOFLIST EQ 0 
18 13 0880 1459 BEQL 30$ ; If ENDOFLIST, then we're done 
53 O11c"CF pO 0882 1460 MOVL PTR_L_P4,R3 ; Get pointer into P4 buffer 
1 10 0887 1461 BSBB 100$ : Dispatch on field type 
15 9 E9 +H 1006 BLBC wy-ge :; If LBC then error 
011C'CF dO f 146 MOVL R3,PTR_L_P4 3; Update pointer into P4 buffer 
50  O000'DF OF 0891 1464 25%:  REMQUE @NETSGO_TMP_BUF.RO : Drain the temp buffer queue to keep 
be 1D 8 1465 BVS 0 3; The pool as available as possible 
F765° 30 32 1466 BSBW BEL PE MLOCATE : (CNFSGET_FIELD may have allocated one) 
FS 9B 1467 BRB 25$ ; Drain the entire queue 
9D 1008 ; Then loop on each fieid 
50 01 0 9D 129 30$: MOVL #1,R0 3; Indicate success 
0 ‘9 1009 40$: RSB 3 Done 
. 1376 3; Don't return partial node entries 
O11C'CF 0120°CF DO O8A1 1474 50$:  MOVL  PTR_L_OLDP4,PTR_L_P4 =; Copy old P4 pointer 
F611 re 102? BRB 40$ 3; And leave 
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P ontrol Qio's 16-SEP-1984 
PRO rocess each CNF block -SEP-1984 
30 100$: BSBW CNFSGET_FLD_EX ; 
—1 BBC #NETSV_CLRCNT 3 
NET $6 FLAGS, 1058: 
rf Bee ssi 12? 
EF 105$:  EXTZV #NFBSV ; 
#NFBSS_ yp. *R9, R1 ; 
SOISPATCH R1,= 3 
<NFBSC_TYP_V, 110$>, 
<NFBSC-TYP“L, 110$>, = 
: <NFBSC_TYP_S, 140$>, - 
BUG_CHECK NETNOSTATE,FATAL 
110$: F 
; The field is not a ‘string’. 
s into the P4 buffer. 
£8 BLBS  —-RO, 1208 : 
C MNEGL #1,R 3 
C 120$: SUBL #4, ,SIZ_L_P4 3 
1 BLSS $ 3 
DO MOVL R8,(R3)+ : 
11 BRB 206$ ; 
140$: F 
; The field is type ‘string’. 
3 the P4 buffer. 
EB BLBS R0,150$ : 
D4 CLRL R7 3 
dO MOVL SP,R8 $ 
$ Do not return half filled 
DO 150$: MOVL $12 L_P4.R9 : 
cs SUBL #2,R 3 
1 BLSS 2208 : 
88 MOVW R7,(R3)+ $ 
g MOVL R7,RO : 
MOVZWL NFBSW_CELL_SIZE(R6),R1 : 
1 BEQL 160$ 3 
C SUBL3 #2,R1,R0 FY 
D1 CMPL R7,RO F 
1A BGTRU 226 : 
cs 160$:  SUBL RO,RO 3 
1 BLSS 22068 : 
4 PUSH R FY 
C MOVC R7, (RB) ,#0,R0, (R3) 3 
D POPL R5 3 
D MOVL R9,S1Z_L_Pé : 
p 200$ MOVL #1,R s 
RSB 
3C 220$: MOVZWL #SS$_RESULTOVF ,RO : 


93: #0: $3 VAX/vis_ Macro V04-00 


Page 34 
NETACP.SRCJNETCTLALL.MAR; 1 . 36) 


Get the field/descriptor and peeereny 
zero counters as a side effec 
If BC not FERO COUNTER. Pike» 


Is there a user P4 buffer 
If GEQ no, not a READeond=ZERO 


Get field typ 
Dispatch on FS eld type 


If the field is valid then store it 


Else store the value -1. 


If LBS then field is valid 
Else use -1 

Account for bytes to be taken 
If LSS then P4 is too small 
Move field value to P4 buffer 
Take common exit 


If field is valid then store it into 
Else store a null string. 


If LBS then field is valid 
pay Hy count if type string 
Point R8 to somewhere accessible 


parameter! 


Get size of P4 buffer 
Account for bytes to be taken 
If LSS then P4& is too small 
Enter count field 
Assume strin ee = space used 
Get fixed cell si 
f EQL then cell + is not fixed 
sonpute space used by cel 
Is stri Ay gger than pd size? 
If so, then nal an error 
te for bytes to be taken 
If LSS . P .. too small 
Save crogice 
Move string tose ” cell 
Restore reg 
Set size remaining in P4 buffer 
Indicate success 


Indicate P4 or cell is too small 


voacobore PROCESS ENF ~ Brocess each CNF a "O7SEb=1382 83:98:68 PARINCE. SReShe veri acemans1 29° (36) 
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ess C 
S_CN Process each CNF block 1984 NETACP.S RCIN NETCTLALL.MAR; 1 
924 1 ; 
2 2 ! 33 f° ; REISSUE_X25 <= Reissue x25 Q10 
924 1541 ; The 10% i lane he Ps is reissued to the X25 ACP since the database 
924 1542 ; addressed by the Q eaince ines by that ACP. If there is no channel 
4 r 1 tz 3; currently active - "he X25 ACP then one is assigned. 
gt 1g i 
924 1 23 REI EISSUE_x25: ; Re-issue Q10 to X25 ACP 
wees #3 2 ; ! ‘8 pay NETSGW_X25_CHAN : or cere an active channel? 
3 es 
2 16 92A 1 29 BSBB RO. 1008" X25_CHAN 3 Assi n at wt get PSI mutex 
3F 50 = =C€E 92C 155 BLBC ; If LBC then error 
92F 1326 50$: $Q10W_S F = #10$ gts =; Re-issue 
83 Abe EEN = #NETSC_E WAIT =; event flag for synchronous calls 
92F 1554 CHAN = ner ha tie CHAN “5 
92F 1555 10SB = BUF -; Scratch quadword buffer 
92F 1556 Pi NETSCL SIZ_P1 -; Address of NFB descriptor 
92F 1557 Pp = #N ETSG {C_S17.P2 <=; Address of P2 butter desc iptor 
O92F 1558 P = NETSG o BTR oe -; Address of word to return P4 bytecnt 
O92F 1559 P4 os WNETSGC.. SI17_P4 3; Address of P4 buffer 
0D 50 58 O95E 1560 BLBC RO,100$ ; If LBC then error 
50 0140'CF D 343 1561 MOVQ QUAD _BUF ,RO ; Setup I0SB image 
05 50 €8 0966 1266 BLBS RO, 100$ 3; Branch if successful 
0004°CF 51 DO 0969 156 MOVL R1,NETSGQ_USR_STAT+4 ; Store error qualifier in I0SB 
05 O96E 1564 100$: RSB ; Done 
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vou PROCESS_CNF = Process each CNF block gro E En bbe §3:48:89 NETACP.SRCJNETCTLALL.MAR; 1 mee (33) 
96F 1 3+ 
i ! e ; NETSGET_X25_CHAN - Assign channel to the PSIACP and get its mutex 
S6F 1 e ; A-channel is assigned to the NW device. This is the path to the PSI ACP. 
96F 1570 ; If successful, then issue a $010 to obtain the PSI ACP database mutex. 
2 : ! re ; If that fails then deassign the channel. 
96F 1573: 
2 ‘ ! iS : INPUTS: None 
96F 1576 : OUTPUTS: RO Status 
i: 
96F 1378 NETSGET_X25_CHAN: : ; Get channel to x25 ACP 
96F 1581 : ASSIGN a channel to the NW driver. This is the path to the 
96F 15 § § PSI ACP. The only expected error return if SS$_NOSUCHDEV 
e444 1 ? ; indicating that the NW driver has not been loaded. 
096F 138 $ASSIGN_S - 3 Assign channel to X25 ACP 
O96F 15 $ CHAN = a Us Et El 
O96F 15 DEVNAM = NET$GQ_X25_DEV,- 
096F 1588 MBXNAM = NET$GQ—MBX_NAME 
4650 €9 3464 138? BLBC RO,200$ 3; If LBC then X25 is not active 
0987 1234 : NETACP is to be the sole modifier of the PSIACP database (other 
0987 1336 : rocesses to issue $Q10's to show the PSIACP database). Thus, a 
ban 133? : Q10 must be issued to obtain the PSIACP database mutex. 
3414 1333 : The expected return status codes are: 
0987 1399 : SS$_NORMAL if successful 
0987 1598 3 SS$_DEVACTIVE if the mutex is already owned 
83 4 123 3 SS$_NOSUCHDEV if the PSIACP is not yet running 
0987 1601 $a10w_s EFN = #NETSC_EFN_WAIT,-; Event flag for synchronous calls 
0987 1606 I0SB = QUA F,- 3; Scratch quadword buffer 
987 160 CHAN = NET$GW_X25 CHAN =; 
987 1604 C = #10$_IRITIALIZE!10$M_ACCESS ; Ask for the mutex 
OD 50 9 O9A8 1605 BLBC RO,100 ; If LBC then error 
50 0140°CF 7D O9AB 1606 MOVG QUAD BUF,RO : Setup 10SB image 
1A 20 E 380 1607 BLBS RO, ; If LBS then no error 
0004 ‘CF a -@ he 1608 MOVL R1,NETS$SGQ_USR_STAT+4 3; Set error qualifier in 10SB 
O96 1610 : The attempt to obtain the mutex has failed. $DASSGN the channel in 
988 1611 : order to leave our database consistent, and it order to allow the 
098. 1ol¢ ;  PSIACP to assign a channel to the one and only NW UCB (the template 
3 1ei2 : bit is set to allow NW UCBs to be cloned after PSIACP initializes). 
50 DD 0988 1615 100$: fuSHL RO : Save error status 
9BA 1916 SDASSGN_S ree X25_CHAN 3; Deassign the channel 
0160°CF B84 O09C6 161 CLRW a4 GW_X25_CRAN ; Zero indicates ‘‘no channel assigned” 
50 8EDO O9CA 1913 P R ; Restore original status 
05 O9CD 1619 200$: RSB 3; Done 
9CE 1620 
9CE 1621 
9CE 1622 .END 
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- Process ACP control Qio's 
Psect synopsis 


"SSEp=198e 02:18:59 ENETACE.SREINEYCTLALL.mar:t 99° (3d) 


bom eeananr ewe cz ea} 


! Psect synopsis ! 


bem m eres seme eee o any 


PSECT name Allocation PSECT No. Attributes 


- ABS . 4 00 O08 ( ) 9 ( 9. ) NOP IC “USR CON ABS LCL $e — NORD NOWRT NOVEC evte 
SABSS ( -) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET_ IMPURE £9001 3 ( 390.) 2°} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
NET_PURE 000 ( 368.) ( 3.) NOPIC USR (CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
NET_CODE 000 iE: ( 2510.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


peewee See en ene ae ee $f 


! Performance indicators : 


$e rer eee ee es we ew eee er aoecnene 


Phase Page faults CPU Time Elapsed Time 


Oo 
o 
oO 
oO 
oO 
o 
. 
ou . @ 
as 
Se a ere a RN EE 


Initialization 7 00:00:00.06 :00: 
ponnens processing 176 00:00:00.97 00:00:05.09 
s 1 488 00:00: $e 88 80:6 1 
Syabol table sort 0 00:00:02. 0:00:04.45 
ass 331 Bat 0:0 $i 00:00:10.90 
wa table output 35 0:00:00.31 00:00:01.04 
Psect synopsis output 3 00:00:00.03 00:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 1071 00:00:29.84 00:01:04.92 


e working set Limit was 2000 pages. 


107916 bytes (211 pages) of virtual memory were used to buffer the intermediate code. 
There were 90 pages of symbol table space hy aa to hold 1492 non-local and 119 Local symbols. 
1622 source Lines were read in Pass 1, produci ng 32 object records in Pass 2. 
48 pages of virtual memory were used to define 44 macros. 
Macro Library name Macros defined 
Te : CSHRLIBINMALIBRY.MLB; 1 0 
2 :ESHRLIBIEVCDEF -MLB: I 0 
CP.OBJ rh Se Pi tl 0 
$S8buk :ENETACP 0B yane! m5: 16 
:CSYS.08 oaj3ti 4 
:CSYSLIB STARLET. PAL: 32 14 
te (all Libraries) 34 


1706 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NETCTLALL/OBJ=OBJ$:NETCTLALL MSRC$:NETCTLALL/UPDATE=(ENHS:NETCTLALL) +EXECML$/LIB+LIB$:NET/LIB+LIB$:NETORV/LIB+SHRL IBS 
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